home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-02-23 | 12.8 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 0f 18 28 48 | 4e 78 48 48 4f 00 00 00 |......(H|NxHHO...|
|00000010| 00 18 24 42 00 3c 42 42 | 42 42 3c 00 00 00 00 00 |..$B.<BB|BB<.....|
|00000020| 00 24 00 3c 42 42 42 42 | 3c 00 00 00 00 00 18 04 |.$.<BBBB|<.......|
|00000030| 00 3c 42 42 42 42 3c 00 | 00 00 00 18 24 42 00 42 |.<BBBB<.|....$B.B|
|00000040| 42 42 42 46 3a 00 00 00 | 00 00 30 08 00 42 42 42 |BBBF:...|..0..BBB|
|00000050| 42 46 3a 00 00 00 00 00 | 00 24 00 42 42 42 46 3a |BF:.....|.$.BBBF:|
|00000060| 02 42 3c 00 00 00 22 00 | 1c 22 41 41 41 22 1c 00 |.B<...".|."AAA"..|
|00000070| 00 00 00 00 22 00 41 41 | 41 41 41 22 1c 00 00 00 |....".AA|AAA"....|
|00000080| 00 00 08 08 3c 42 40 40 | 42 3c 08 08 00 00 00 00 |....<B@@|B<......|
|00000090| 1c 22 20 10 3c 10 10 32 | 5c 00 00 00 00 00 41 22 |." .<..2|\.....A"|
|000000a0| 14 08 3e 08 3e 08 08 00 | 00 00 00 00 78 44 44 78 |..>.>...|....xDDx|
|000000b0| 44 4e 44 44 04 00 00 00 | 00 00 0c 12 10 10 3c 10 |DNDD....|......<.|
|000000c0| 10 10 10 10 60 00 00 00 | 0c 10 00 3c 02 3e 42 42 |....`...|...<.>BB|
|000000d0| 3d 00 00 00 00 00 0c 10 | 00 18 08 08 08 08 3e 00 |=.......|......>.|
|000000e0| 00 00 00 00 0c 10 00 3c | 42 42 42 42 3c 00 00 00 |.......<|BBBB<...|
|000000f0| 00 00 0c 10 00 42 42 42 | 42 46 3a 00 00 00 00 00 |.....BBB|BF:.....|
|00000100| 32 4c 00 5c 62 42 42 42 | 42 00 00 00 00 00 19 26 |2L.\bBBB|B......&|
|00000110| 41 61 51 49 45 43 41 00 | 00 00 00 00 38 04 1c 24 |AaQIECA.|....8..$|
|00000120| 1a 00 3e 00 00 00 00 00 | 00 00 1c 22 22 22 1c 00 |..>.....|..."""..|
|00000130| 3e 00 00 00 00 00 00 00 | 08 00 08 08 30 40 40 41 |>.......|....0@@A|
|00000140| 3e 00 00 00 00 00 00 00 | 00 00 7f 40 40 40 00 00 |>.......|...@@@..|
|00000150| 00 00 00 00 00 00 00 00 | 7f 01 01 01 00 00 00 00 |........|........|
|00000160| 00 00 20 62 24 28 10 2e | 02 04 0e 00 00 00 00 00 |.. b$(..|........|
|00000170| 20 62 24 28 10 2a 0a 0f | 02 00 00 00 00 00 08 00 | b$(.*..|........|
|00000180| 00 08 08 08 08 08 08 00 | 00 00 00 00 00 00 09 12 |........|........|
|00000190| 24 12 09 00 00 00 00 00 | 00 00 00 00 24 12 09 12 |$.......|....$...|
|000001a0| 24 00 00 00 00 00 44 11 | 44 11 44 11 44 11 44 11 |$.....D.|D.D.D.D.|
|000001b0| 44 11 44 11 aa 55 aa 55 | aa 55 aa 55 aa 55 aa 55 |D.D..U.U|.U.U.U.U|
|000001c0| aa 55 77 dd 77 dd 77 dd | 77 dd 77 dd 77 dd 77 dd |.Uw.w.w.|w.w.w.w.|
|000001d0| 08 08 08 08 08 08 08 08 | 08 08 08 08 08 08 08 08 |........|........|
|000001e0| 08 08 08 08 08 f8 08 08 | 08 08 08 08 08 08 08 08 |........|........|
|000001f0| 08 f8 08 f8 08 08 08 08 | 08 08 14 14 14 14 14 14 |........|........|
|00000200| 14 f4 14 14 14 14 14 14 | 00 00 00 00 00 00 00 fc |........|........|
|00000210| 14 14 14 14 14 14 00 00 | 00 00 00 f8 08 f8 08 08 |........|........|
|00000220| 08 08 08 08 14 14 14 14 | 14 f4 04 f4 14 14 14 14 |........|........|
|00000230| 14 14 14 14 14 14 14 14 | 14 14 14 14 14 14 14 14 |........|........|
|00000240| 00 00 00 00 00 fc 04 f4 | 14 14 14 14 14 14 14 14 |........|........|
|00000250| 14 14 14 f4 04 fc 00 00 | 00 00 00 00 14 14 14 14 |........|........|
|00000260| 14 14 14 fc 00 00 00 00 | 00 00 08 08 08 08 08 f8 |........|........|
|00000270| 08 f8 00 00 00 00 00 00 | 00 00 00 00 00 00 00 f8 |........|........|
|00000280| 08 08 08 08 08 08 08 08 | 08 08 08 08 08 0f 00 00 |........|........|
|00000290| 00 00 00 00 08 08 08 08 | 08 08 08 ff 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 ff 08 08 08 08 08 08 |........|........|
|000002b0| 08 08 08 08 08 08 08 0f | 08 08 08 08 08 08 00 00 |........|........|
|000002c0| 00 00 00 00 00 ff 00 00 | 00 00 00 00 08 08 08 08 |........|........|
|000002d0| 08 08 08 ff 08 08 08 08 | 08 08 08 08 08 08 08 0f |........|........|
|000002e0| 08 0f 08 08 08 08 08 08 | 14 14 14 14 14 14 14 17 |........|........|
|000002f0| 14 14 14 14 14 14 14 14 | 14 14 14 17 10 1f 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 1f 10 17 14 14 14 14 |........|........|
|00000310| 14 14 14 14 14 14 14 f7 | 00 ff 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 ff 00 f7 | 14 14 14 14 14 14 14 14 |........|........|
|00000330| 14 14 14 17 10 17 14 14 | 14 14 14 14 00 00 00 00 |........|........|
|00000340| 00 ff 00 ff 00 00 00 00 | 00 00 14 14 14 14 14 f7 |........|........|
|00000350| 00 f7 14 14 14 14 14 14 | 08 08 08 08 08 ff 00 ff |........|........|
|00000360| 00 00 00 00 00 00 14 14 | 14 14 14 14 14 ff 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 ff 00 ff 08 08 08 08 |........|........|
|00000380| 08 08 00 00 00 00 00 00 | 00 ff 14 14 14 14 14 14 |........|........|
|00000390| 14 14 14 14 14 14 14 1f | 00 00 00 00 00 00 08 08 |........|........|
|000003a0| 08 08 08 0f 08 0f 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 0f 08 0f 08 08 08 08 | 08 08 00 00 00 00 00 00 |........|........|
|000003c0| 00 1f 14 14 14 14 14 14 | 14 14 14 14 14 14 14 ff |........|........|
|000003d0| 14 14 14 14 14 14 08 08 | 08 08 08 ff 08 ff 08 08 |........|........|
|000003e0| 08 08 08 08 08 08 08 08 | 08 08 08 f8 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 0f 08 08 08 08 08 08 |........|........|
|00000400| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |........|........|
|00000410| 00 00 00 00 00 ff ff ff | ff ff ff ff f0 f0 f0 f0 |........|........|
|00000420| f0 f0 f0 f0 f0 f0 f0 f0 | f0 f0 0f 0f 0f 0f 0f 0f |........|........|
|00000430| 0f 0f 0f 0f 0f 0f 0f 0f | ff ff ff ff ff ff ff 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 37 48 48 37 00 |........|...7HH7.|
|00000450| 00 00 00 00 00 00 1c 22 | 42 5c 44 42 42 52 4c 00 |......."|B\DBBRL.|
|00000460| 00 00 00 00 7e 42 42 40 | 40 40 40 40 40 00 00 00 |....~BB@|@@@@@...|
|00000470| 00 00 00 00 00 3f 52 12 | 12 12 12 00 00 00 00 00 |.....?R.|........|
|00000480| 7e 21 10 08 04 08 10 21 | 7e 00 00 00 00 00 00 00 |~!.....!|~.......|
|00000490| 00 3f 44 44 44 44 38 00 | 00 00 00 00 00 00 42 42 |.?DDDD8.|......BB|
|000004a0| 42 42 7c 40 40 80 00 00 | 00 00 00 00 00 3e 50 10 |BB|@@...|.....>P.|
|000004b0| 10 14 08 00 00 00 00 00 | 1c 08 3e 49 49 49 3e 08 |........|..>III>.|
|000004c0| 1c 00 00 00 00 00 00 1c | 22 41 7f 41 22 1c 00 00 |........|"A.A"...|
|000004d0| 00 00 00 00 1c 22 41 41 | 41 22 14 55 77 00 00 00 |....."AA|A".Uw...|
|000004e0| 00 00 1c 12 08 3c 44 44 | 44 44 38 00 00 00 00 00 |.....<DD|DD8.....|
|000004f0| 00 00 00 36 49 49 36 00 | 00 00 00 00 00 00 00 1d |...6II6.|........|
|00000500| 22 45 49 51 22 5c 00 00 | 00 00 00 00 00 1f 20 40 |"EIQ"\..|...... @|
|00000510| 7f 40 20 1f 00 00 00 00 | 00 00 00 1c 22 41 41 41 |.@ .....|...."AAA|
|00000520| 41 41 00 00 00 00 00 00 | 00 00 7f 00 7f 00 7f 00 |AA......|........|
|00000530| 00 00 00 00 00 00 08 08 | 08 7f 08 08 08 00 7f 00 |........|........|
|00000540| 00 00 00 00 10 08 04 02 | 04 08 10 00 3e 00 00 00 |........|....>...|
|00000550| 00 00 04 08 10 20 10 08 | 04 00 3e 00 00 00 00 00 |..... ..|..>.....|
|00000560| 06 09 0b 08 08 08 08 08 | 08 08 08 08 08 08 08 08 |........|........|
|00000570| 08 08 08 08 68 48 30 00 | 00 00 00 00 00 00 08 00 |....hH0.|........|
|00000580| 7f 00 08 00 00 00 00 00 | 00 00 00 00 32 4c 00 32 |........|....2L.2|
|00000590| 4c 00 00 00 00 00 00 00 | 18 24 24 18 00 00 00 00 |L.......|.$$.....|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 18 3c 18 00 00 00 |........|...<....|
|000005b0| 00 00 00 00 00 00 00 00 | 00 18 18 00 00 00 00 00 |........|........|
|000005c0| 00 0f 08 08 08 08 48 28 | 18 08 00 00 00 00 00 2c |......H(|.......,|
|000005d0| 12 12 12 12 00 00 00 00 | 00 00 00 00 00 18 24 08 |........|......$.|
|000005e0| 10 3c 00 00 00 00 00 00 | 00 00 00 00 00 3e 3e 3e |.<......|.....>>>|
|000005f0| 3e 3e 3e 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |>>>>....|........|
|00000600| 00 00 00 00 00 00 20 20 | 20 20 20 20 20 20 20 56 |...... | V|
|00000610| 4d 4f 44 45 3d 56 49 44 | 45 4f 4d 4f 44 45 47 45 |MODE=VID|EOMODEGE|
|00000620| 54 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |T.. | I|
|00000630| 46 20 57 48 49 43 48 56 | 47 41 20 3d 20 30 20 54 |F WHICHV|GA = 0 T|
|00000640| 48 45 4e 20 53 54 4f 50 | 0d 0a 20 20 20 20 20 20 |HEN STOP|.. |
|00000650| 20 20 20 20 20 20 44 55 | 4d 4d 59 3d 52 45 53 36 | DU|MMY=RES6|
|00000660| 34 30 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |40.. | |
|00000670| 53 45 54 56 49 45 57 20 | 31 30 30 2c 20 31 30 30 |SETVIEW |100, 100|
|00000680| 2c 20 35 33 39 2c 20 33 | 37 39 0d 0a 20 20 20 20 |, 539, 3|79.. |
|00000690| 20 20 20 20 20 20 20 20 | 46 49 4c 4c 56 49 45 57 | |FILLVIEW|
|000006a0| 20 31 30 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | 10.. | |
|000006b0| 20 57 48 49 4c 45 20 49 | 4e 4b 45 59 24 20 3d 20 | WHILE I|NKEY$ = |
|000006c0| 22 22 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |"".. | |
|000006d0| 57 45 4e 44 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |WEND.. | |
|000006e0| 20 20 56 49 44 45 4f 4d | 4f 44 45 53 45 54 20 56 | VIDEOM|ODESET V|
|000006f0| 4d 4f 44 45 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |MODE.. | |
|00000700| 20 20 45 4e 44 0d 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a | END...|........|
|00000710| 0a 0a 0a 0a 0a 0a 0a 20 | 20 20 20 20 20 20 20 20 |....... | |
|00000720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000760| 36 33 0d 0c 0d 0a 0a 0a | 0a 0a 0a 20 20 20 20 20 |63......|... |
|00000770| 20 20 20 20 20 46 4f 4e | 54 47 45 54 49 4e 46 4f | FON|TGETINFO|
|00000780| 0d 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |... | P|
|00000790| 52 4f 54 4f 54 59 50 45 | 0d 0a 0a 20 20 20 20 20 |ROTOTYPE|... |
|000007a0| 20 20 20 20 20 20 20 53 | 55 42 20 46 4f 4e 54 47 | S|UB FONTG|
|000007b0| 45 54 49 4e 46 4f 20 28 | 57 69 64 74 68 25 2c 20 |ETINFO (|Width%, |
|000007c0| 48 65 69 67 68 74 25 29 | 0d 0a 0a 20 20 20 20 20 |Height%)|... |
|000007d0| 20 20 20 20 20 20 20 49 | 4e 50 55 54 0d 0a 0a 20 | I|NPUT... |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 6e 6f 20 69 6e | | no in|
|000007f0| 70 75 74 20 70 61 72 61 | 6d 65 74 65 72 73 0d 0a |put para|meters..|
|00000800| 00 00 00 00 00 00 20 20 | 20 20 57 45 4e 44 0d 0a |...... | WEND..|
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 20 4d 4f 55 53 | | MOUS|
|00000820| 45 45 58 49 54 0d 0a 20 | 20 20 20 20 20 20 20 20 |EEXIT.. | |
|00000830| 20 20 20 56 49 44 45 4f | 4d 4f 44 45 53 45 54 20 | VIDEO|MODESET |
|00000840| 56 4d 4f 44 45 0d 0a 20 | 20 20 20 20 20 20 20 20 |VMODE.. | |
|00000850| 20 20 20 45 4e 44 0d 0a | 0a 0a 0a 0a 0a 0a 0a 0a | END..|........|
|00000860| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00000870| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00000880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008c0| 20 20 20 20 20 20 20 20 | 20 38 36 0d 0c 0d 0a 0a | | 86.....|
|000008d0| 0a 0a 0a 0a 20 20 20 20 | 20 20 20 20 20 20 4d 4f |.... | MO|
|000008e0| 55 53 45 43 55 52 53 4f | 52 44 45 46 41 55 4c 54 |USECURSO|RDEFAULT|
|000008f0| 0d 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |... | P|
|00000900| 52 4f 54 4f 54 59 50 45 | 0d 0a 0a 20 20 20 20 20 |ROTOTYPE|... |
|00000910| 20 20 20 20 20 20 20 53 | 55 42 20 4d 4f 55 53 45 | S|UB MOUSE|
|00000920| 43 55 52 53 4f 52 44 45 | 46 41 55 4c 54 20 28 29 |CURSORDE|FAULT ()|
|00000930| 0d 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |... | I|
|00000940| 4e 50 55 54 0d 0a 0a 20 | 20 20 20 20 20 20 20 20 |NPUT... | |
|00000950| 20 20 20 6e 6f 20 69 6e | 70 75 74 20 70 61 72 61 | no in|put para|
|00000960| 6d 65 74 65 72 73 0d 0a | 0a 20 20 20 20 20 20 20 |meters..|. |
|00000970| 20 20 20 20 20 4f 55 54 | 50 55 54 0d 0a 0a 20 20 | OUT|PUT... |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 6e 6f 20 76 61 6c | | no val|
|00000990| 75 65 20 72 65 74 75 72 | 6e 65 64 0d 0a 0a 20 20 |ue retur|ned... |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 55 53 41 47 45 0d | | USAGE.|
|000009b0| 0a 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 4d 4f |.. | MO|
|000009c0| 55 53 45 43 55 52 53 4f | 52 44 45 46 41 55 4c 54 |USECURSO|RDEFAULT|
|000009d0| 20 64 65 66 69 6e 65 73 | 20 74 68 65 20 6d 6f 75 | defines| the mou|
|000009e0| 73 65 20 63 75 72 73 6f | 72 20 74 6f 20 62 65 20 |se curso|r to be |
|000009f0| 61 20 73 6d 61 6c 6c 0d | 0a 20 20 20 20 20 20 20 |a small.|. |
|00000a00| 2c 00 07 4b 24 b7 c5 d4 | 03 d1 b0 58 51 29 e5 b4 |,..K$...|...XQ)..|
|00000a10| 94 f0 f6 c1 c4 b4 85 a4 | 54 d9 10 2c 01 d4 aa 85 |........|T..,....|
|00000a20| a4 58 39 d4 f4 85 a4 5c | 39 d4 14 55 9a b6 f3 60 |.X9....\|9..U...`|
|00000a30| 39 d4 34 61 d4 64 39 d4 | 55 54 61 d4 68 39 d4 74 |9.4a.d9.|UTa.h9.t|
|00000a40| 61 d4 6c 39 d4 55 94 61 | d4 70 39 d4 b4 61 d4 74 |a.l9.U.a|.p9..a.t|
|00000a50| d9 10 50 54 f1 78 c1 8c | 80 b7 30 b2 8b e0 b3 8f |..PT.x..|..0.....|
|00000a60| e0 55 b4 93 e0 b5 97 e0 | b6 9b e0 b7 a3 e2 d4 70 |.U......|.......p|
|00000a70| 80 a7 e2 b8 ad e0 02 89 | 20 c8 c1 e3 08 8d f8 73 |........| ......s|
|00000a80| 4b 90 ed 62 08 3c 10 24 | f5 dd 89 20 14 09 ed 89 |K..b.<.$|... ....|
|00000a90| 20 18 1d ed 89 20 49 1c | 31 ed 89 20 20 45 ed 89 | .... I.|1.. E..|
|00000aa0| 20 24 59 ed 92 89 20 28 | 6d ed 89 20 2c 81 ed 89 | $Y... (|m.. ,...|
|00000ab0| 20 30 24 95 ed 89 20 a0 | a9 ed 89 20 a4 bd ed 89 | 0$... .|... ....|
|00000ac0| 20 49 a8 d1 ed 89 20 ac | e5 ed 89 20 b0 f9 ed 92 | I.... .|... ....|
|00000ad0| 89 20 34 0d fd 89 20 b4 | 21 fd 89 20 b8 24 35 fd |. 4... .|!.. .$5.|
|00000ae0| 89 20 bc 49 fd 89 20 c0 | 5d fd 89 20 a9 38 71 fd |. .I.. .|].. .8q.|
|00000af0| 89 20 3c 85 fc e8 69 80 | 14 aa f9 50 18 05 10 1c |. <...i.|...P....|
|00000b00| 99 80 20 9d 80 0a fc 0d | b0 d0 83 40 14 25 38 40 |.. .....|...@.%8@|
|00000b10| 00 e2 e8 a0 10 bc d1 b0 | f0 63 00 a5 8f 2a 24 0d |........|.c...*$.|
|00000b20| b0 b8 f0 8f ac f0 e7 d2 | 18 6d 00 a8 f5 1d ee 09 |........|.m......|
|00000b30| d0 40 00 06 23 00 e6 f7 | 24 83 68 24 83 e0 72 61 |.@..#...|$.h$..ra|
|00000b40| d0 02 85 00 60 9d 8a 00 | ef 10 80 00 25 80 20 2b |....`...|....%. +|
|00000b50| 08 c4 df 01 13 00 20 54 | 8c 63 4f 8c ef 83 00 f8 |...... T|.cO.....|
|00000b60| 31 3c 40 17 ff ff 5b 19 | 24 a8 80 ac 0c 4d 00 08 |1<@...[.|$....M..|
|00000b70| 4d 00 6c fa 30 9f 20 59 | ac c4 21 25 18 36 61 de |M.l.0. Y|..!%.6a.|
|00000b80| 8a 20 9d 08 8d 20 e1 a0 | 2b 08 3f 02 01 f1 ff 20 |. ... ..|+.?.... |
|00000b90| 50 3c 01 8c 61 54 54 56 | 0c 08 d8 69 80 1c ad f2 |P<..aTTV|...i....|
|00000ba0| b0 0b 60 5f a4 af 25 80 | a0 1b a0 a6 ff 50 db a7 |..`_..%.|.....P..|
|00000bb0| af ee 60 82 61 f9 90 25 | 48 ae c1 a1 41 10 25 47 |..`.a..%|H...A.%G|
|00000bc0| a0 72 f9 90 05 0a 69 10 | 77 f9 90 08 69 11 ed 60 |.r....i.|w...i..`|
|00000bd0| 1d 10 cf f2 12 f0 d1 80 | 6d 00 fc b1 0a 5d 92 41 |........|m....].A|
|00000be0| a0 e5 04 77 01 03 05 37 | b0 00 10 02 f5 08 ef 09 |...w...7|........|
|00000bf0| 01 05 24 08 11 01 00 03 | fa c7 80 04 fb 90 10 26 |..$.....|.......&|
|00000c00| 5e 00 60 ff 10 ff bf 0b | 24 fc ff 07 ff 24 fe ff |^.`.....|$....$..|
|00000c10| 06 24 d5 ff 6e 6b 24 4a | 2d 90 51 31 9c 50 82 42 |.$..nk$J|-.Q1.P.B|
|00000c20| 97 ff 02 00 af 30 04 00 | e0 51 2f 02 00 a5 34 bd |.....0..|.Q/...4.|
|00000c30| 00 10 9c b0 a7 50 f7 a5 | 34 80 f5 00 24 28 a6 00 |.....P..|4...$(..|
|00000c40| df 24 40 07 01 43 5d 92 | 03 82 f7 00 c0 b8 5f 10 |.$@..C].|......_.|
|00000c50| 00 53 00 80 87 a5 34 3d | 69 14 90 11 f4 11 84 13 |.S....4=|i.......|
|00000c60| b9 3c 5f 10 6e 70 40 a5 | 34 35 95 15 b1 10 59 33 |.<_.np@.|45....Y3|
|00000c70| 81 14 ac 10 51 01 a1 b0 | 2e 69 14 3e cc 11 00 40 |....Q...|.i.>...@|
|00000c80| 08 35 2b c1 1c d3 90 be | d3 16 24 40 0b 01 23 c1 |.5+.....|..$@..#.|
|00000c90| 16 40 ae cb 10 0a 24 1e | d1 16 0a 23 40 a5 a3 34 |.@....$.|...#@..4|
|00000ca0| 1b 01 2c 1b 70 13 26 10 | 65 10 13 f6 81 15 10 ac |..,.p.&.|e.......|
|00000cb0| 5f 10 80 51 00 10 a7 a5 | 34 0d 95 15 51 20 0b 81 |_..Q....|4...Q ..|
|00000cc0| 14 40 3b 00 ad 5f 10 a0 | 51 40 65 10 cc f2 40 6d |.@;.._..|Q@e...@m|
|00000cd0| 10 70 21 b4 61 1c 11 d4 | 13 1e 11 10 4f b0 fb 60 |.p!.a...|....O..`|
|00000ce0| 50 a4 00 8f a7 ff 80 54 | f8 38 11 98 21 ac 00 8f |P......T|.8..!...|
|00000cf0| a4 01 07 24 ab d3 1c 22 | 71 a8 ff 50 a4 43 80 a8 |...$..."|q..P.C..|
|00000d00| e0 fb c0 d2 b0 65 00 54 | 22 e1 02 0e 3c 70 f8 25 |.....e.T|"...<p.%|
|00000d10| 00 50 91 28 01 01 00 cf | 25 70 eb 9d 2f 4f 00 88 |.P.(....|%p../O..|
|00000d20| 57 30 80 ac 1c 62 ed 20 | 08 ed 20 42 40 5b 00 83 |W0...b. |.. B@[..|
|00000d30| ac 38 83 f2 e6 f3 28 09 | 08 a8 f5 25 28 80 00 ef |.8....(.|...%(...|
|00000d40| 06 00 a0 54 98 70 00 2b | 0c a2 9a b2 00 30 21 e4 |...T.p.+|.....0!.|
|00000d50| f1 28 31 f1 0d b0 18 b4 | 99 80 44 c0 10 44 30 8f |.(1.....|..D..D0.|
|00000d60| 0e b5 60 ff ff ff 02 24 | 0c 00 ae 8c 00 4f 40 cf |..`....$|.....O@.|
|00000d70| 31 0a 61 10 bc d1 6a 2d | 30 17 10 00 a4 b3 60 40 |1.a...j-|0.....`@|
|00000d80| b7 62 e8 61 54 31 01 02 | cd f4 bc d1 e4 fd ac f1 |.b.aT1..|........|
|00000d90| 2c 31 94 a1 8c 39 6c 98 | 01 1c 32 38 80 8f 60 e2 |,1...9l.|..28..`.|
|00000da0| 8c a8 50 fd 24 2c 01 03 | 00 4e 30 1e 00 7f c1 15 |..P.$,..|.N0.....|
|00000db0| 08 01 4f 30 1d 61 10 d7 | 08 00 eb f3 30 e5 a3 60 |..O0.a..|....0..`|
|00000dc0| f8 8c b7 23 30 05 eb f0 | c0 58 dc 31 10 af 00 e4 |...#0...|.X.1....|
|00000dd0| 8c 28 b1 00 1c 9d 80 db | a5 1f 22 71 a0 fb 31 43 |.(......|.."q..1C|
|00000de0| 80 a3 c7 d0 a7 ff 8f 0a | 00 46 54 0c 00 e9 fd 8c |........|.FT.....|
|00000df0| c0 31 80 00 59 30 09 00 | 77 20 13 fd 85 b0 24 40 |.1..Y0..|w ....$@|
|00000e00| 41 8f 60 cb e8 ac d4 60 | 10 dc 31 18 41 ff ff 7d |A.`....`|..1.A..}|
|00000e10| 03 bf 80 2a 35 0c 00 ea | 53 00 eb eb 8c 60 10 ac |...*5...|S....`..|
|00000e20| 8c 61 00 00 eb 91 ac 8c | 35 0c 31 a8 f5 ea bd f4 |.a......|5.1.....|
|00000e30| 20 01 ac 7f 9d ce 81 04 | 00 c0 51 8c 31 53 13 0d | .......|..Q.1S..|
|00000e40| be f3 8c 39 d0 69 80 2c | f9 50 55 28 7d 80 24 81 |...9.i.,|.PU(}.$.|
|00000e50| 80 20 85 80 1c 15 60 e5 | 18 8d 80 14 1d 60 1c 51 |. ....`.|.....`.Q|
|00000e60| e0 9a 42 4f 24 25 98 80 | cf 22 24 02 80 ae 80 5d |..BO$%..|."$....]|
|00000e70| 90 2e 01 c2 01 1f 5c 60 | 25 57 90 7f 01 00 15 24 |......\`|%W.....$|
|00000e80| ff ff 11 57 30 ff 02 8e | 83 00 4f 30 13 00 5d e0 |...W0...|..O0..].|
|00000e90| 47 c2 08 00 75 1b 72 ca | 0d b0 0e 9c b1 0d 00 51 |G...u.r.|.......Q|
|00000ea0| 9b a3 c9 80 f0 01 f8 73 | 3f 60 16 02 00 58 30 d4 |.......s|?`...X0.|
|00000eb0| 60 40 20 e6 02 57 02 00 | 83 40 b9 61 a0 20 02 ee |`@ ..W..|.@.a. ..|
|00000ec0| 64 71 60 9d 39 3f 80 10 | 26 2b 6f 08 30 03 e6 79 |dq`.9?..|&+o.0..y|
|00000ed0| 02 02 8e e4 41 8f 04 00 | 75 56 28 00 37 50 ce f1 |....A...|uV(.7P..|
|00000ee0| 40 49 02 64 51 b8 40 8f | b4 40 3b 80 b2 3f 80 95 |@I.dQ.@.|.@;..?..|
|00000ef0| b3 43 80 b4 c7 d0 b5 4b | 80 8e 33 30 fc ed f8 20 |.C.....K|..30... |
|00000f00| 01 10 a2 ce 8d 2b 08 5d | 8e cb f0 20 14 09 4d 94 |.....+.]|... ..M.|
|00000f10| bc e5 20 fd 1a 79 35 01 | 18 3c 21 c0 04 df 03 14 |.. ..y5.|.<!.....|
|00000f20| a2 18 83 bc 90 33 10 7e | 6d 70 09 00 08 24 3c 1a |.....3.~|mp...$<.|
|00000f30| be f3 39 92 2d 32 fc f0 | 00 40 54 2c 01 10 c6 e4 |..9.-2..|.@T,....|
|00000f40| 61 04 2c 01 06 29 10 50 | 91 c0 9d 23 19 ac d8 51 |a.,..).P|...#...Q|
|00000f50| b4 53 28 ac 40 41 8c 61 | 00 0d 12 f0 d1 40 99 fd |.S(.@A.a|.....@..|
|00000f60| f1 f4 4b 89 44 c4 c1 04 | b1 df 30 d0 a5 24 ca 2d |..K.D...|..0..$.-|
|00000f70| 30 20 d0 88 2a d3 04 b2 | 65 64 00 6d 60 8c 3d 1c |0 ..*...|ed.m`.=.|
|00000f80| 33 00 4b 00 e1 2d 31 30 | 8a 3d f2 f3 01 fd c0 10 |3.K..-10|.=......|
|00000f90| 9c 6d 8c 6a 79 20 98 65 | 01 fd fc d0 69 b8 65 b2 |.m.jy .e|....i.e.|
|00000fa0| e4 6d e0 99 06 b6 43 25 | 80 2a 00 88 1e 2a 30 08 |.m....C%|.*...*0.|
|00000fb0| 11 02 0b 45 a0 74 51 5a | 60 6d 8e 4c 00 50 04 25 |...E.tQZ|`m.L.P.%|
|00000fc0| 10 09 f8 1a 81 fc a6 81 | 4e 51 11 02 f9 ff 20 54 |........|NQ.... T|
|00000fd0| a8 3c 71 74 57 ea 63 20 | 15 7a b0 8f 80 a4 ea 87 |.<qtW.c |.z......|
|00000fe0| 80 a6 87 80 ae 3b c0 01 | 3c 1a bf 00 a0 14 ac 9d |.....;..|<.......|
|00000ff0| 2e ff a0 03 3f 3c e4 73 | 63 8c 11 29 10 a0 a1 7f |....?<.s|c..)....|
|00001000| 20 3a 3d 20 30 3b 0d 0a | 20 20 20 20 20 20 65 6e | := 0;..| en|
|00001010| 64 3b 0d 0a 20 20 20 20 | 65 6e 64 3b 0d 0a 20 20 |d;.. |end;.. |
|00001020| 65 6e 64 3b 0d 0a 20 20 | 57 61 69 74 54 6f 47 6f |end;.. |WaitToGo|
|00001030| 3b 0d 0a 65 6e 64 3b 20 | 7b 20 55 73 65 72 4c 69 |;..end; |{ UserLi|
|00001040| 6e 65 53 74 79 6c 65 50 | 6c 61 79 20 7d 0d 0a 0d |neStyleP|lay }...|
|00001050| 0a 0d 0a 70 72 6f 63 65 | 64 75 72 65 20 53 61 79 |...proce|dure Say|
|00001060| 47 6f 6f 64 62 79 65 3b | 0d 0a 7b 20 53 61 79 20 |Goodbye;|..{ Say |
|00001070| 67 6f 6f 64 62 79 65 20 | 61 6e 64 20 74 68 65 6e |goodbye |and then|
|00001080| 20 65 78 69 74 20 74 68 | 65 20 70 72 6f 67 72 61 | exit th|e progra|
|00001090| 6d 20 7d 0d 0a 76 61 72 | 0d 0a 20 20 56 69 65 77 |m }..var|.. View|
|000010a0| 49 6e 66 6f 20 3a 20 56 | 69 65 77 50 6f 72 74 54 |Info : V|iewPortT|
|000010b0| 79 70 65 3b 0d 0a 62 65 | 67 69 6e 0d 0a 20 20 4d |ype;..be|gin.. M|
|000010c0| 61 69 6e 57 69 6e 64 6f | 77 28 27 27 29 3b 0d 0a |ainWindo|w('');..|
|000010d0| 20 20 47 65 74 56 69 65 | 77 53 65 74 74 69 6e 67 | GetVie|wSetting|
|000010e0| 73 28 56 69 65 77 49 6e | 66 6f 29 3b 0d 0a 20 20 |s(ViewIn|fo);.. |
|000010f0| 53 65 74 54 65 78 74 53 | 74 79 6c 65 28 54 72 69 |SetTextS|tyle(Tri|
|00001100| 70 6c 65 78 46 6f 6e 74 | 2c 20 48 6f 72 69 7a 44 |plexFont|, HorizD|
|00001110| 69 72 2c 20 34 29 3b 0d | 0a 20 20 53 65 74 54 65 |ir, 4);.|. SetTe|
|00001120| 78 74 4a 75 73 74 69 66 | 79 28 43 65 6e 74 65 72 |xtJustif|y(Center|
|00001130| 54 65 78 74 2c 20 43 65 | 6e 74 65 72 54 65 78 74 |Text, Ce|nterText|
|00001140| 29 3b 0d 0a 20 20 77 69 | 74 68 20 56 69 65 77 49 |);.. wi|th ViewI|
|00001150| 6e 66 6f 20 64 6f 0d 0a | 20 20 20 20 4f 75 74 54 |nfo do..| OutT|
|00001160| 65 78 74 58 59 28 28 78 | 32 2d 78 31 29 20 64 69 |extXY((x|2-x1) di|
|00001170| 76 20 32 2c 20 28 79 32 | 2d 79 31 29 20 64 69 76 |v 2, (y2|-y1) div|
|00001180| 20 32 2c 20 27 54 68 61 | 74 27 27 73 20 61 6c 6c | 2, 'Tha|t''s all|
|00001190| 20 66 6f 6c 6b 73 21 27 | 29 3b 0d 0a 20 20 53 74 | folks!'|);.. St|
|000011a0| 61 74 75 73 4c 69 6e 65 | 28 27 50 72 65 73 73 20 |atusLine|('Press |
|000011b0| 61 6e 79 20 6b 65 79 20 | 74 6f 20 71 75 69 74 2e |any key |to quit.|
|000011c0| 2e 2e 27 29 3b 0d 0a 20 | 20 72 65 70 65 61 74 20 |..');.. | repeat |
|000011d0| 75 6e 74 69 6c 20 4b 65 | 79 50 72 65 73 73 65 64 |until Ke|yPressed|
|000011e0| 3b 0d 0a 65 6e 64 3b 20 | 7b 20 53 61 79 47 6f 6f |;..end; |{ SayGoo|
|000011f0| 64 62 79 65 20 7d 0d 0a | 0d 0a 0d 0a 50 52 4f 43 |dbye }..|....PROC|
|00001200| 45 44 55 52 45 20 53 65 | 6c 65 63 74 4d 6f 64 65 |EDURE Se|lectMode|
|00001210| 3b 0d 0a 56 41 52 0d 0a | 09 63 68 6f 69 63 65 31 |;..VAR..|.choice1|
|00001220| 2c 63 68 6f 69 63 65 32 | 20 09 3a 20 43 48 41 52 |,choice2| .: CHAR|
|00001230| 3b 0d 0a 20 20 20 78 73 | 69 7a 65 2c 79 73 69 7a |;.. xs|ize,ysiz|
|00001240| 65 09 09 09 3a 20 57 4f | 52 44 3b 0d 0a 42 45 47 |e...: WO|RD;..BEG|
|00001250| 49 4e 0d 0a 09 28 2a 20 | 4c 65 74 27 73 20 73 65 |IN...(* |Let's se|
|00001260| 6c 65 63 74 20 61 20 6d | 6f 64 65 20 2a 29 0d 0a |lect a m|ode *)..|
|00001270| 09 43 6c 72 53 63 72 3b | 0d 0a 09 57 72 69 74 65 |.ClrScr;|...Write|
|00001280| 4c 6e 28 27 56 45 53 41 | 44 45 4d 4f 3a 27 29 3b |Ln('VESA|DEMO:');|
|00001290| 0d 0a 09 57 72 69 74 65 | 4c 6e 28 27 31 2e 20 32 |...Write|Ln('1. 2|
|000012a0| 35 36 20 63 6f 6c 6f 72 | 73 27 29 3b 0d 0a 09 57 |56 color|s');...W|
|000012b0| 72 69 74 65 4c 6e 28 27 | 32 2e 20 33 32 37 36 38 |riteLn('|2. 32768|
|000012c0| 20 63 6f 6c 6f 72 73 27 | 29 3b 0d 0a 09 57 72 69 | colors'|);...Wri|
|000012d0| 74 65 4c 6e 28 27 33 2e | 20 36 35 35 33 36 20 63 |teLn('3.| 65536 c|
|000012e0| 6f 6c 6f 72 73 27 29 3b | 0d 0a 09 57 72 69 74 65 |olors');|...Write|
|000012f0| 4c 6e 28 27 34 2e 20 31 | 36 37 37 37 32 31 36 20 |Ln('4. 1|6777216 |
|00001300| 63 6f 6c 6f 72 73 27 29 | 3b 0d 0a 09 57 72 69 74 |colors')|;...Writ|
|00001310| 65 4c 6e 28 27 51 20 75 | 69 74 27 29 3b 0d 0a 09 |eLn('Q u|it');...|
|00001320| 57 72 69 74 65 4c 6e 3b | 0d 0a 09 57 72 69 74 65 |WriteLn;|...Write|
|00001330| 28 27 59 6f 75 72 20 63 | 68 6f 69 63 65 3a 20 27 |('Your c|hoice: '|
|00001340| 29 3b 0d 0a 09 52 45 50 | 45 41 54 0d 0a 09 09 52 |);...REP|EAT....R|
|00001350| 65 61 64 4c 6e 28 63 68 | 6f 69 63 65 31 29 3b 0d |eadLn(ch|oice1);.|
|00001360| 0a 20 20 20 20 20 20 49 | 46 20 63 68 6f 69 63 65 |. I|F choice|
|00001370| 31 20 3c 3e 20 27 31 27 | 20 54 48 45 4e 20 42 45 |1 <> '1'| THEN BE|
|00001380| 47 49 4e 0d 0a 20 20 20 | 20 20 20 09 57 72 69 74 |GIN.. | .Writ|
|00001390| 65 4c 6e 28 27 53 6f 72 | 72 79 20 21 27 29 3b 0d |eLn('Sor|ry !');.|
|000013a0| 0a 20 20 20 20 20 20 20 | 20 20 57 72 69 74 65 4c |. | WriteL|
|000013b0| 6e 28 27 54 68 69 73 20 | 64 65 6d 6f 20 77 61 73 |n('This |demo was|
|000013c0| 6e 27 27 74 20 77 72 69 | 74 74 65 6e 20 66 6f 72 |n''t wri|tten for|
|000013d0| 20 6d 6f 72 65 20 61 73 | 20 32 35 36 20 63 6f 6c | more as| 256 col|
|000013e0| 6f 72 73 20 21 27 29 3b | 0d 0a 20 20 20 20 20 20 |ors !');|.. |
|000013f0| 20 20 20 57 72 69 74 65 | 4c 6e 28 27 59 6f 75 20 | Write|Ln('You |
|00001400| 77 6f 75 6c 64 20 6f 6e | 6c 79 20 67 65 74 20 61 |would on|ly get a|
|00001410| 20 6c 69 6d 69 74 65 64 | 20 69 6d 70 72 65 73 73 | limited| impress|
|00001420| 69 6f 6e 20 6f 66 20 74 | 68 65 20 48 69 2d 26 20 |ion of t|he Hi-& |
|00001430| 54 72 75 65 43 6f 6c 6f | 72 20 6d 6f 64 65 73 2e |TrueColo|r modes.|
|00001440| 2e 2e 27 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |..');.. | |
|00001450| 57 72 69 74 65 4c 6e 28 | 27 53 77 69 74 63 68 69 |WriteLn(|'Switchi|
|00001460| 6e 67 20 74 6f 20 32 35 | 36 20 63 6f 6c 6f 72 73 |ng to 25|6 colors|
|00001470| 2e 27 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 63 |.');.. | c|
|00001480| 68 6f 69 63 65 31 20 3a | 3d 20 27 31 27 3b 0d 0a |hoice1 :|= '1';..|
|00001490| 20 20 20 20 20 20 45 4e | 44 3b 0d 0a 09 55 4e 54 | EN|D;...UNT|
|000014a0| 49 4c 20 63 68 6f 69 63 | 65 31 20 49 4e 20 5b 27 |IL choic|e1 IN ['|
|000014b0| 31 27 2e 2e 27 34 27 2c | 27 71 27 5d 3b 0d 0a 09 |1'..'4',|'q'];...|
|000014c0| 49 46 20 63 68 6f 69 63 | 65 31 20 3d 20 27 71 27 |IF choic|e1 = 'q'|
|000014d0| 20 54 48 45 4e 20 48 61 | 6c 74 3b 0d 0a 0d 0a 09 | THEN Ha|lt;.....|
|000014e0| 57 72 69 74 65 4c 6e 3b | 0d 0a 09 57 72 69 74 65 |WriteLn;|...Write|
|000014f0| 4c 6e 3b 0d 0a 09 57 72 | 69 74 65 4c 6e 28 27 61 |Ln;...Wr|iteLn('a|
|00001500| 2e 20 33 32 30 78 32 30 | 30 27 29 3b 0d 0a 09 57 |. 320x20|0');...W|
|00001510| 72 69 74 65 4c 6e 28 27 | 62 2e 20 36 34 30 78 34 |riteLn('|b. 640x4|
|00001520| 38 30 27 29 3b 0d 0a 09 | 57 72 69 74 65 4c 6e 28 |80');...|WriteLn(|
|00001530| 27 63 2e 20 38 30 30 78 | 36 30 30 27 29 3b 0d 0a |'c. 800x|600');..|
|00001540| 09 57 72 69 74 65 4c 6e | 28 27 64 2e 20 31 30 32 |.WriteLn|('d. 102|
|00001550| 34 78 37 36 38 27 29 3b | 0d 0a 09 57 72 69 74 65 |4x768');|...Write|
|00001560| 4c 6e 28 27 65 2e 20 31 | 32 38 30 78 31 30 32 34 |Ln('e. 1|280x1024|
|00001570| 27 29 3b 0d 0a 09 57 72 | 69 74 65 4c 6e 28 27 51 |');...Wr|iteLn('Q|
|00001580| 20 75 69 74 27 29 3b 0d | 0a 09 57 72 69 74 65 4c | uit');.|..WriteL|
|00001590| 6e 3b 0d 0a 09 57 72 69 | 74 65 28 27 59 6f 75 72 |n;...Wri|te('Your|
|000015a0| 20 63 68 6f 69 63 65 3a | 20 27 29 3b 0d 0a 09 52 | choice:| ');...R|
|000015b0| 45 50 45 41 54 0d 0a 09 | 09 52 65 61 64 4c 6e 28 |EPEAT...|.ReadLn(|
|000015c0| 63 68 6f 69 63 65 32 29 | 3b 0d 0a 09 55 4e 54 49 |choice2)|;...UNTI|
|000015d0| 4c 20 63 68 6f 69 63 65 | 32 20 49 4e 20 5b 27 61 |L choice|2 IN ['a|
|000015e0| 27 2e 2e 27 65 27 2c 27 | 71 27 5d 3b 0d 0a 09 49 |'..'e','|q'];...I|
|000015f0| 46 20 63 68 6f 69 63 65 | 32 20 3d 20 27 71 27 20 |F choice|2 = 'q' |
|00001600| 54 48 45 4e 20 48 61 6c | 74 3b 0d 0a 0d 0a 09 43 |THEN Hal|t;.....C|
|00001610| 41 53 45 20 63 68 6f 69 | 63 65 32 20 4f 46 0d 0a |ASE choi|ce2 OF..|
|00001620| 09 09 27 61 27 20 3a 20 | 42 45 47 49 4e 0d 0a 09 |..'a' : |BEGIN...|
|00001630| 09 09 78 73 69 7a 65 20 | 3a 3d 20 33 32 30 3b 0d |..xsize |:= 320;.|
|00001640| 0a 09 09 09 79 73 69 7a | 65 20 3a 3d 20 32 30 30 |....ysiz|e := 200|
|00001650| 3b 0d 0a 09 09 45 4e 44 | 3b 0d 0a 09 09 27 62 27 |;....END|;....'b'|
|00001660| 20 3a 20 42 45 47 49 4e | 0d 0a 09 09 09 78 73 69 | : BEGIN|.....xsi|
|00001670| 7a 65 20 3a 3d 20 36 34 | 30 3b 0d 0a 09 09 09 79 |ze := 64|0;.....y|
|00001680| 73 69 7a 65 20 3a 3d 20 | 34 38 30 3b 0d 0a 09 09 |size := |480;....|
|00001690| 45 4e 44 3b 0d 0a 09 09 | 27 63 27 20 3a 20 42 45 |END;....|'c' : BE|
|000016a0| 47 49 4e 0d 0a 09 09 09 | 78 73 69 7a 65 20 3a 3d |GIN.....|xsize :=|
|000016b0| 20 38 30 30 3b 0d 0a 09 | 09 09 79 73 69 7a 65 20 | 800;...|..ysize |
|000016c0| 3a 3d 20 36 30 30 3b 0d | 0a 09 09 45 4e 44 3b 0d |:= 600;.|...END;.|
|000016d0| 0a 09 09 27 64 27 20 3a | 20 42 45 47 49 4e 0d 0a |...'d' :| BEGIN..|
|000016e0| 09 09 09 78 73 69 7a 65 | 20 3a 3d 20 31 30 32 34 |...xsize| := 1024|
|000016f0| 3b 0d 0a 09 09 09 79 73 | 69 7a 65 20 3a 3d 20 37 |;.....ys|ize := 7|
|00001700| 36 38 3b 0d 0a 09 09 45 | 4e 44 3b 0d 0a 09 09 27 |68;....E|ND;....'|
|00001710| 65 27 20 3a 20 42 45 47 | 49 4e 0d 0a 09 09 09 78 |e' : BEG|IN.....x|
|00001720| 73 69 7a 65 20 3a 3d 20 | 31 32 38 30 3b 0d 0a 09 |size := |1280;...|
|00001730| 09 09 79 73 69 7a 65 20 | 3a 3d 20 31 30 32 34 3b |..ysize |:= 1024;|
|00001740| 0d 0a 09 09 45 4e 44 3b | 0d 0a 09 45 4e 44 3b 0d |....END;|...END;.|
|00001750| 0a 09 43 41 53 45 20 63 | 68 6f 69 63 65 31 20 4f |..CASE c|hoice1 O|
|00001760| 46 0d 0a 09 09 27 31 27 | 20 3a 20 6d 6f 64 65 20 |F....'1'| : mode |
|00001770| 3a 3d 20 46 69 6e 64 56 | 65 73 61 4d 6f 64 65 28 |:= FindV|esaMode(|
|00001780| 78 73 69 7a 65 2c 79 73 | 69 7a 65 2c 38 29 3b 0d |xsize,ys|ize,8);.|
|00001790| 0a 09 09 27 32 27 20 3a | 20 6d 6f 64 65 20 3a 3d |...'2' :| mode :=|
|000017a0| 20 46 69 6e 64 56 65 73 | 61 4d 6f 64 65 28 78 73 | FindVes|aMode(xs|
|000017b0| 69 7a 65 2c 79 73 69 7a | 65 2c 31 35 29 3b 0d 0a |ize,ysiz|e,15);..|
|000017c0| 09 09 27 33 27 20 3a 20 | 6d 6f 64 65 20 3a 3d 20 |..'3' : |mode := |
|000017d0| 46 69 6e 64 56 65 73 61 | 4d 6f 64 65 28 78 73 69 |FindVesa|Mode(xsi|
|000017e0| 7a 65 2c 79 73 69 7a 65 | 2c 31 36 29 3b 0d 0a 09 |ze,ysize|,16);...|
|000017f0| 09 27 34 27 20 3a 20 6d | 6f 64 65 20 3a 3d 20 46 |.'4' : m|ode := F|
|00001800| 69 6e 64 56 65 73 61 4d | 6f 64 65 28 78 73 69 7a |indVesaM|ode(xsiz|
|00001810| 65 2c 79 73 69 7a 65 2c | 32 34 29 3b 0d 0a 09 45 |e,ysize,|24);...E|
|00001820| 4e 44 3b 0d 0a 09 49 46 | 20 6d 6f 64 65 20 3d 20 |ND;...IF| mode = |
|00001830| 30 20 54 48 45 4e 20 42 | 45 47 49 4e 0d 0a 09 09 |0 THEN B|EGIN....|
|00001840| 57 72 69 74 65 4c 6e 28 | 27 4e 6f 20 73 75 63 68 |WriteLn(|'No such|
|00001850| 20 6d 6f 64 65 20 63 6f | 75 6c 64 20 62 65 20 66 | mode co|uld be f|
|00001860| 6f 75 6e 64 20 21 27 29 | 3b 0d 0a 09 09 57 72 69 |ound !')|;....Wri|
|00001870| 74 65 4c 6e 28 27 53 77 | 69 74 63 68 69 6e 67 20 |teLn('Sw|itching |
|00001880| 74 6f 20 74 6f 20 33 32 | 30 78 32 30 30 2e 27 29 |to to 32|0x200.')|
|00001890| 3b 0d 0a 09 09 52 65 61 | 64 4b 65 79 3b 0d 0a 09 |;....Rea|dKey;...|
|000018a0| 09 6d 6f 64 65 20 3a 3d | 20 56 33 32 30 78 32 30 |.mode :=| V320x20|
|000018b0| 30 78 32 35 36 3b 0d 0a | 09 45 4e 44 3b 0d 0a 45 |0x256;..|.END;..E|
|000018c0| 4e 44 3b 0d 0a 0d 0a 62 | 65 67 69 6e 20 7b 20 70 |ND;....b|egin { p|
|000018d0| 72 6f 67 72 61 6d 20 62 | 6f 64 79 20 7d 0d 0a 20 |rogram b|ody }.. |
|000018e0| 20 53 65 6c 65 63 74 4d | 6f 64 65 3b 0d 0a 20 20 | SelectM|ode;.. |
|000018f0| 49 6e 69 74 69 61 6c 69 | 7a 65 3b 0d 0a 20 20 52 |Initiali|ze;.. R|
|00001900| 65 70 6f 72 74 53 74 61 | 74 75 73 3b 0d 0a 0d 0a |eportSta|tus;....|
|00001910| 7b 20 20 41 73 70 65 63 | 74 52 61 74 69 6f 50 6c |{ Aspec|tRatioPl|
|00001920| 61 79 3b 20 7d 0d 0a 20 | 20 46 69 6c 6c 45 6c 6c |ay; }.. | FillEll|
|00001930| 69 70 73 65 50 6c 61 79 | 3b 0d 0a 20 20 53 65 63 |ipsePlay|;.. Sec|
|00001940| 74 6f 72 50 6c 61 79 3b | 0d 0a 20 20 57 72 69 74 |torPlay;|.. Writ|
|00001950| 65 4d 6f 64 65 50 6c 61 | 79 3b 0d 0a 0d 0a 20 20 |eModePla|y;.... |
|00001960| 43 6f 6c 6f 72 50 6c 61 | 79 3b 0d 0a 20 20 7b 20 |ColorPla|y;.. { |
|00001970| 50 61 6c 65 74 74 65 50 | 6c 61 79 20 6f 6e 6c 79 |PaletteP|lay only|
|00001980| 20 69 6e 74 65 6e 64 65 | 64 20 74 6f 20 77 6f 72 | intende|d to wor|
|00001990| 6b 20 6f 6e 20 74 68 65 | 73 65 20 64 72 69 76 65 |k on the|se drive|
|000019a0| 72 73 3a 20 7d 0d 0a 20 | 20 69 66 20 28 47 72 61 |rs: }.. | if (Gra|
|000019b0| 70 68 44 72 69 76 65 72 | 20 3d 20 45 47 41 29 20 |phDriver| = EGA) |
|000019c0| 6f 72 0d 0a 09 20 20 28 | 47 72 61 70 68 44 72 69 |or... (|GraphDri|
|000019d0| 76 65 72 20 3d 20 45 47 | 41 36 34 29 20 6f 72 0d |ver = EG|A64) or.|
|000019e0| 0a 09 20 20 28 47 72 61 | 70 68 44 72 69 76 65 72 |.. (Gra|phDriver|
|000019f0| 20 3d 20 56 47 41 29 20 | 74 68 65 6e 0d 0a 09 20 | = VGA) |then... |
|00001a00| 50 61 6c 65 74 74 65 50 | 6c 61 79 3b 0d 0a 20 20 |PaletteP|lay;.. |
|00001a10| 50 75 74 50 69 78 65 6c | 50 6c 61 79 3b 0d 0a 7b |PutPixel|Play;..{|
|00001a20| 20 20 50 75 74 49 6d 61 | 67 65 50 6c 61 79 3b 20 | PutIma|gePlay; |
|00001a30| 7d 0d 0a 20 20 52 61 6e | 64 42 61 72 50 6c 61 79 |}.. Ran|dBarPlay|
|00001a40| 3b 0d 0a 20 20 42 61 72 | 50 6c 61 79 3b 0d 0a 20 |;.. Bar|Play;.. |
|00001a50| 20 42 61 72 33 44 50 6c | 61 79 3b 0d 0a 20 20 41 | Bar3DPl|ay;.. A|
|00001a60| 72 63 50 6c 61 79 3b 0d | 0a 20 20 43 69 72 63 6c |rcPlay;.|. Circl|
|00001a70| 65 50 6c 61 79 3b 0d 0a | 20 20 50 69 65 50 6c 61 |ePlay;..| PiePla|
|00001a80| 79 3b 0d 0a 20 20 4c 69 | 6e 65 54 6f 50 6c 61 79 |y;.. Li|neToPlay|
|00001a90| 3b 0d 0a 20 20 4c 69 6e | 65 52 65 6c 50 6c 61 79 |;.. Lin|eRelPlay|
|00001aa0| 3b 0d 0a 7b 20 20 4c 69 | 6e 65 53 74 79 6c 65 50 |;..{ Li|neStyleP|
|00001ab0| 6c 61 79 3b 20 7d 0d 0a | 7b 20 20 55 73 65 72 4c |lay; }..|{ UserL|
|00001ac0| 69 6e 65 53 74 79 6c 65 | 50 6c 61 79 3b 20 7d 0d |ineStyle|Play; }.|
|00001ad0| 0a 20 20 54 65 78 74 44 | 75 6d 70 3b 0d 0a 20 20 |. TextD|ump;.. |
|00001ae0| 54 65 78 74 50 6c 61 79 | 3b 0d 0a 20 20 43 72 74 |TextPlay|;.. Crt|
|00001af0| 4d 6f 64 65 50 6c 61 79 | 3b 0d 0a 20 20 46 69 6c |ModePlay|;.. Fil|
|00001b00| 6c 53 74 79 6c 65 50 6c | 61 79 3b 0d 0a 20 20 46 |lStylePl|ay;.. F|
|00001b10| 69 6c 6c 50 61 74 74 65 | 72 6e 50 6c 61 79 3b 0d |illPatte|rnPlay;.|
|00001b20| 0a 20 20 50 6f 6c 79 50 | 6c 61 79 3b 0d 0a 20 20 |. PolyP|lay;.. |
|00001b30| 53 61 79 47 6f 6f 64 62 | 79 65 3b 0d 0a 7b 20 20 |SayGoodb|ye;..{ |
|00001b40| 43 6c 6f 73 65 47 72 61 | 70 68 3b 20 7d 0d 0a 20 |CloseGra|ph; }.. |
|00001b50| 20 43 6c 6f 73 65 56 65 | 73 61 3b 0d 0a 65 6e 64 | CloseVe|sa;..end|
|00001b60| 2e 0d 0a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...*****|********|
|00001b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b90| 2a 2a 2a 2a 2a 2a 0d 0a | 09 27 2a 20 53 48 4f 57 |******..|.'* SHOW|
|00001ba0| 20 44 32 52 4f 54 41 54 | 45 20 28 41 42 4f 55 54 | D2ROTAT|E (ABOUT|
|00001bb0| 20 54 48 45 20 4f 52 49 | 47 49 4e 29 0d 0a 09 27 | THE ORI|GIN)...'|
|00001bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c00| ec d2 f3 63 f3 2a ed 8a | 23 5e b3 76 2f d5 3a 6a |...c.*..|#^.v/.:j|
|00001c10| cd ed 30 74 2b 6c 04 b2 | 93 22 aa 1f 22 03 0e 67 |..0t+l..|.".."..g|
|00001c20| c0 f0 3f 25 a6 88 19 e4 | 14 b3 48 d7 ab d7 bd c3 |..?%....|..H.....|
|00001c30| a8 55 27 d5 a9 17 f5 00 | ff e1 04 56 3f ca 0d aa |.U'.....|...V?...|
|00001c40| 08 75 6a 4f e8 87 45 0e | 5a 31 ec de 21 0b dc 42 |.ujO..E.|Z1..!..B|
|00001c50| be e4 38 15 ba 91 5d 31 | 47 6c 4e 9a bf 71 dd b2 |..8...]1|GlN..q..|
|00001c60| 3b 93 24 e8 7a 45 3c 14 | 63 a6 2a 62 45 93 1c 23 |;.$.zE<.|c.*bE..#|
|00001c70| 84 cf a4 8f 22 ef c4 4c | 72 06 64 61 99 0c cc 1c |...."..L|r.da....|
|00001c80| 01 a7 d7 61 5e 9d 9c 86 | ce 31 7e 29 40 16 89 99 |...a^...|.1~)@...|
|00001c90| 4d eb d7 30 cd 36 44 84 | 46 88 aa 80 76 c5 e1 d0 |M..0.6D.|F...v...|
|00001ca0| 6b 10 91 70 1b e7 01 05 | 1e d8 90 29 7d 1d a6 ff |k..p....|...)}...|
|00001cb0| 15 31 77 33 d1 cf 81 f5 | 9d d6 68 b2 12 b9 f7 8b |.1w3....|..h.....|
|00001cc0| 8f 04 61 a5 5b 54 fc 48 | 71 a6 90 bc 44 4b 8e c4 |..a.[T.H|q...DK..|
|00001cd0| 59 02 2d 19 ec 74 54 d1 | e9 d0 a7 c7 d8 2e 2a 80 |Y.-..tT.|......*.|
|00001ce0| 49 39 6c e8 f7 7b e3 e7 | 63 e5 24 e7 e3 e1 6f 46 |I9l..{..|c.$...oF|
|00001cf0| 72 d8 d0 ef c5 c6 c7 3b | 4f 32 fe 65 fd 4c 9a 34 |r......;|O2.e.L.4|
|00001d00| 5e 4e 7c d8 ab 8f 4f 3f | c9 f8 12 46 4f 7a 60 02 |^N|...O?|...FOz`.|
|00001d10| c7 c7 c7 7f 27 3c 3e 3e | e3 24 e3 e9 97 36 fa 0d |....'<>>|.$...6..|
|00001d20| 58 67 8c b7 b3 f8 6f 8c | eb e3 47 9f 64 bc df b0 |Xg....o.|..G.d...|
|00001d30| 3f 0e fe d8 c9 5f 39 4c | ff 1d f5 14 93 fc 71 27 |?...._9L|......q'|
|00001d40| 91 4f df 9f 6e 34 c9 df | c8 dc c5 33 70 05 e7 2e |.O..n4..|...3p...|
|00001d50| 95 4f f8 7f 0e 1b fa 7d | f6 b8 fc f1 27 91 4f 3f |.O.....}|....'.O?|
|00001d60| a1 74 b3 21 fb 38 e1 a5 | f3 2f bf b9 70 c5 f2 d9 |.t.!.8..|./..p...|
|00001d70| 45 05 cb 56 18 6f 78 b8 | 63 e8 82 35 c7 c8 a7 d3 |E..V.ox.|c..5....|
|00001d80| 24 3f fb 24 f2 e9 5a ee | 16 73 8c f0 86 8d e2 70 |$?.$..Z.|.s.....p|
|00001d90| 4b 97 1c 9b 17 8b e1 ff | 58 d2 ff 39 c6 f7 5c e6 |K.......|X..9..\.|
|00001da0| 6b b4 4f 9d 5f ff 35 9a | 12 94 5c f3 82 8e da d1 |k.O._.5.|..\.....|
|00001db0| 41 5b d1 98 a0 8b c5 82 | 4e fc 8f 75 31 36 09 67 |A[......|N..u16.g|
|00001dc0| 2c 25 68 63 d3 d0 63 44 | d0 56 8b d9 52 9b 19 94 |,%hc..cD|.V..R...|
|00001dd0| 4b a4 52 3b 38 ee a0 e4 | b6 0f d8 a2 73 d1 e3 b5 |K.R;8...|....s...|
|00001de0| a0 14 c0 8a 78 67 7a 50 | 8e 4d 16 a3 14 d7 79 e0 |....xgzP|.M....y.|
|00001df0| a7 08 90 2b e5 4a 9b 18 | 69 2b b2 83 33 d2 18 09 |...+.J..|i+..3...|
|00001e00| cd a5 d3 8c 5e a7 05 47 | b2 db 00 e3 82 72 00 ed |....^..G|.....r..|
|00001e10| 87 73 20 25 23 28 bb f4 | 3f c5 25 75 38 f0 36 05 |.s %#(..|?.%u8.6.|
|00001e20| 2b 51 90 29 29 95 29 41 | 66 77 f7 b9 d8 29 42 26 |+Q.)).)A|fw...)B&|
|00001e30| 34 b0 11 86 4c 58 56 3a | 12 eb 84 1c 74 40 8f 2e |4...LXV:|....t@..|
|00001e40| 3b 35 e8 66 b6 8e 74 bf | e4 4a 01 d7 11 c4 55 1f |;5.f..t.|.J....U.|
|00001e50| 38 a3 80 c7 82 1e 13 94 | 9c b8 12 70 c9 c1 f4 76 |8.......|...p...v|
|00001e60| 67 d0 ce d2 82 f6 d8 b9 | c2 07 e2 49 2e 87 f0 5e |g.......|...I...^|
|00001e70| 76 d1 5a e8 80 26 05 20 | d5 da 12 36 a4 93 36 58 |v.Z..&. |...6..6X|
|00001e80| e1 00 4e 0f 8a b5 ce 45 | 9e a5 0a 6b 49 a7 cc dc |..N....E|...kI...|
|00001e90| 41 1a 2b b9 d2 82 62 fd | 74 91 2d 14 59 07 ad ab |A.+...b.|t.-.Y...|
|00001ea0| e0 a5 61 cd 75 75 8c 80 | 15 b6 e0 88 76 68 75 a6 |..a.uu..|....vhu.|
|00001eb0| b5 53 8f b4 76 8a 97 a3 | 9d 46 3b 70 3c 64 a9 12 |.S..v...|.F;p<d..|
|00001ec0| 1c 01 2f 46 c4 64 03 db | 82 54 25 b2 4b e8 06 96 |../F.d..|.T%.K...|
|00001ed0| 11 3d 71 fe 94 49 bf 0c | bf cc 36 53 24 b1 f6 0e |.=q..I..|..6S$...|
|00001ee0| c8 45 4e ea 9d 46 96 39 | c9 da 52 27 bc 20 cf ed |.EN..F.9|..R'. ..|
|00001ef0| c0 14 3f 67 c2 6a b2 30 | cd 2f 62 12 b7 17 9e c4 |..?g.j.0|./b.....|
|00001f00| 6d 96 82 b6 13 da af 98 | 8e 89 2f fa 3c 82 95 fe |m.......|../.<...|
|00001f10| b0 d1 1f c7 b6 c3 58 e5 | 3a d2 50 33 e9 22 ce 4c |......X.|:.P3.".L|
|00001f20| 91 73 ed b0 da 16 94 53 | 94 21 bb 07 a8 2a 6d 4e |.s.....S|.!...*mN|
|00001f30| 9c 57 06 e4 80 13 9c b4 | 7e 17 23 bb 91 91 12 f2 |.W......|~.#.....|
|00001f40| 52 ea a2 68 3a 85 dd 2e | 91 f7 b8 dd 76 9c 1d 84 |R..h:...|....v...|
|00001f50| 85 64 b1 85 d5 c3 3d b0 | b7 e3 ba 24 68 6f 77 05 |.d....=.|...$how.|
|00001f60| 65 67 2a ce 09 36 97 dc | 9f 1a 93 b8 ed b0 99 b6 |eg*..6..|........|
|00001f70| 71 e9 11 44 3e 28 77 40 | a3 4b ee 48 0f 92 be 94 |q..D>(w@|.K.H....|
|00001f80| a3 e4 03 55 0a 82 9a 52 | c9 12 d1 57 dc 03 8a 88 |...U...R|...W....|
|00001f90| 20 32 1f 4d 25 1f a2 2e | b2 53 4e 99 41 31 97 4a | 2.M%...|.SN.A1.J|
|00001fa0| 45 b6 ba 6c 5d b2 a8 3e | 5c 25 c0 8f 34 e1 4f dc |E..l]..>|\%..4.O.|
|00001fb0| 17 9c 83 a9 26 1d ff 88 | 2f 29 38 76 05 53 50 df |....&...|/)8v.SP.|
|00001fc0| b2 93 fc 91 1e 91 fb 81 | fb a5 8e 61 f4 83 c8 04 |........|...a....|
|00001fd0| 34 53 d6 c7 50 2d 0b 3f | e4 a0 b8 b2 4e 91 2a 71 |4S..P-.?|....N.*q|
|00001fe0| b5 55 e9 08 b2 14 f7 00 | 13 5e a4 fa 49 2e 72 a3 |.U......|.^..I.r.|
|00001ff0| 52 26 24 59 11 5e c8 25 | 8a f0 42 da 17 f7 43 16 |R&$Y.^.%|..B...C.|
|00002000| 65 61 74 0d 0a 20 20 20 | 20 43 6f 6c 6f 72 20 3a |eat.. | Color :|
|00002010| 3d 20 52 61 6e 64 43 6f | 6c 6f 72 3b 0d 0a 20 20 |= RandCo|lor;.. |
|00002020| 20 20 53 65 74 43 6f 6c | 6f 72 28 43 6f 6c 6f 72 | SetCol|or(Color|
|00002030| 29 3b 0d 0a 20 20 20 20 | 53 65 74 46 69 6c 6c 53 |);.. |SetFillS|
|00002040| 74 79 6c 65 28 52 61 6e | 64 6f 6d 28 43 6c 6f 73 |tyle(Ran|dom(Clos|
|00002050| 65 44 6f 74 46 69 6c 6c | 29 2b 31 2c 20 43 6f 6c |eDotFill|)+1, Col|
|00002060| 6f 72 29 3b 0d 0a 20 20 | 20 20 42 61 72 33 44 28 |or);.. | Bar3D(|
|00002070| 52 61 6e 64 6f 6d 28 4d | 61 78 57 69 64 74 68 29 |Random(M|axWidth)|
|00002080| 2c 20 52 61 6e 64 6f 6d | 28 4d 61 78 48 65 69 67 |, Random|(MaxHeig|
|00002090| 68 74 29 2c 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ht),.. | |
|000020a0| 52 61 6e 64 6f 6d 28 4d | 61 78 57 69 64 74 68 29 |Random(M|axWidth)|
|000020b0| 2c 20 52 61 6e 64 6f 6d | 28 4d 61 78 48 65 69 67 |, Random|(MaxHeig|
|000020c0| 68 74 29 2c 20 30 2c 20 | 54 6f 70 4f 66 66 29 3b |ht), 0, |TopOff);|
|000020d0| 0d 0a 20 20 75 6e 74 69 | 6c 20 4b 65 79 50 72 65 |.. unti|l KeyPre|
|000020e0| 73 73 65 64 3b 0d 0a 20 | 20 57 61 69 74 54 6f 47 |ssed;.. | WaitToG|
|000020f0| 6f 3b 0d 0a 65 6e 64 3b | 20 7b 20 52 61 6e 64 42 |o;..end;| { RandB|
|00002100| 61 72 50 6c 61 79 20 7d | 0d 0a 0d 0a 70 72 6f 63 |arPlay }|....proc|
|00002110| 65 64 75 72 65 20 41 72 | 63 50 6c 61 79 3b 0d 0a |edure Ar|cPlay;..|
|00002120| 7b 20 44 72 61 77 20 72 | 61 6e 64 6f 6d 20 61 72 |{ Draw r|andom ar|
|00002130| 63 73 20 6f 6e 20 74 68 | 65 20 73 63 72 65 65 6e |cs on th|e screen|
|00002140| 20 7d 0d 0a 76 61 72 0d | 0a 20 20 4d 61 78 52 61 | }..var.|. MaxRa|
|00002150| 64 69 75 73 20 3a 20 77 | 6f 72 64 3b 0d 0a 20 20 |dius : w|ord;.. |
|00002160| 45 6e 64 41 6e 67 6c 65 | 20 3a 20 77 6f 72 64 3b |EndAngle| : word;|
|00002170| 0d 0a 20 20 41 72 63 49 | 6e 66 6f 20 3a 20 41 72 |.. ArcI|nfo : Ar|
|00002180| 63 43 6f 6f 72 64 73 54 | 79 70 65 3b 0d 0a 62 65 |cCoordsT|ype;..be|
|00002190| 67 69 6e 0d 0a 20 20 4d | 61 69 6e 57 69 6e 64 6f |gin.. M|ainWindo|
|000021a0| 77 28 27 41 72 63 20 2f | 20 47 65 74 41 72 63 43 |w('Arc /| GetArcC|
|000021b0| 6f 6f 72 64 73 20 64 65 | 6d 6f 6e 73 74 72 61 74 |oords de|monstrat|
|000021c0| 69 6f 6e 27 29 3b 0d 0a | 20 20 53 74 61 74 75 73 |ion');..| Status|
|000021d0| 4c 69 6e 65 28 27 45 73 | 63 20 61 62 6f 72 74 73 |Line('Es|c aborts|
|000021e0| 20 6f 72 20 70 72 65 73 | 73 20 61 20 6b 65 79 27 | or pres|s a key'|
|000021f0| 29 3b 0d 0a 20 20 4d 61 | 78 52 61 64 69 75 73 20 |);.. Ma|xRadius |
|00002200| 3a 3d 20 4d 61 78 59 20 | 64 69 76 20 31 30 3b 0d |:= MaxY |div 10;.|
|00002210| 0a 20 20 72 65 70 65 61 | 74 0d 0a 20 20 20 20 53 |. repea|t.. S|
|00002220| 65 74 43 6f 6c 6f 72 28 | 52 61 6e 64 43 6f 6c 6f |etColor(|RandColo|
|00002230| 72 29 3b 0d 0a 20 20 20 | 20 45 6e 64 41 6e 67 6c |r);.. | EndAngl|
|00002240| 65 20 3a 3d 20 52 61 6e | 64 6f 6d 28 33 36 30 29 |e := Ran|dom(360)|
|00002250| 3b 0d 0a 20 20 20 20 53 | 65 74 4c 69 6e 65 53 74 |;.. S|etLineSt|
|00002260| 79 6c 65 28 53 6f 6c 69 | 64 4c 6e 2c 20 30 2c 20 |yle(Soli|dLn, 0, |
|00002270| 4e 6f 72 6d 57 69 64 74 | 68 29 3b 0d 0a 20 20 20 |NormWidt|h);.. |
|00002280| 20 41 72 63 28 52 61 6e | 64 6f 6d 28 4d 61 78 58 | Arc(Ran|dom(MaxX|
|00002290| 29 2c 20 52 61 6e 64 6f | 6d 28 4d 61 78 59 29 2c |), Rando|m(MaxY),|
|000022a0| 20 52 61 6e 64 6f 6d 28 | 45 6e 64 41 6e 67 6c 65 | Random(|EndAngle|
|000022b0| 29 2c 20 45 6e 64 41 6e | 67 6c 65 2c 20 52 61 6e |), EndAn|gle, Ran|
|000022c0| 64 6f 6d 28 4d 61 78 52 | 61 64 69 75 73 29 29 3b |dom(MaxR|adius));|
|000022d0| 0d 0a 20 20 20 20 47 65 | 74 41 72 63 43 6f 6f 72 |.. Ge|tArcCoor|
|000022e0| 64 73 28 41 72 63 49 6e | 66 6f 29 3b 0d 0a 20 20 |ds(ArcIn|fo);.. |
|000022f0| 20 20 77 69 74 68 20 41 | 72 63 49 6e 66 6f 20 64 | with A|rcInfo d|
|00002300| 6f 0d 0a 20 20 20 20 62 | 65 67 69 6e 0d 0a 20 20 |o.. b|egin.. |
|00002310| 20 20 20 20 4c 69 6e 65 | 28 58 2c 20 59 2c 20 58 | Line|(X, Y, X|
|00002320| 53 74 61 72 74 2c 20 59 | 53 74 61 72 74 29 3b 0d |Start, Y|Start);.|
|00002330| 0a 20 20 20 20 20 20 4c | 69 6e 65 28 58 2c 20 59 |. L|ine(X, Y|
|00002340| 2c 20 58 65 6e 64 2c 20 | 59 65 6e 64 29 3b 0d 0a |, Xend, |Yend);..|
|00002350| 20 20 20 20 65 6e 64 3b | 0d 0a 20 20 75 6e 74 69 | end;|.. unti|
|00002360| 6c 20 4b 65 79 50 72 65 | 73 73 65 64 3b 0d 0a 20 |l KeyPre|ssed;.. |
|00002370| 20 57 61 69 74 54 6f 47 | 6f 3b 0d 0a 65 6e 64 3b | WaitToG|o;..end;|
|00002380| 20 7b 20 41 72 63 50 6c | 61 79 20 7d 0d 0a 0d 0a | { ArcPl|ay }....|
|00002390| 70 72 6f 63 65 64 75 72 | 65 20 50 75 74 50 69 78 |procedur|e PutPix|
|000023a0| 65 6c 50 6c 61 79 3b 0d | 0a 7b 20 44 65 6d 6f 6e |elPlay;.|.{ Demon|
|000023b0| 73 74 72 61 74 65 20 74 | 68 65 20 50 75 74 50 69 |strate t|he PutPi|
|000023c0| 78 65 6c 20 61 6e 64 20 | 47 65 74 50 69 78 65 6c |xel and |GetPixel|
|000023d0| 20 63 6f 6d 6d 61 6e 64 | 73 20 7d 0d 0a 63 6f 6e | command|s }..con|
|000023e0| 73 74 0d 0a 20 20 53 65 | 65 64 20 20 20 3d 20 31 |st.. Se|ed = 1|
|000023f0| 39 36 32 3b 20 7b 20 41 | 20 73 65 65 64 20 66 6f |962; { A| seed fo|
|00002400| 72 20 74 68 65 20 72 61 | 6e 64 6f 6d 20 6e 75 6d |r the ra|ndom num|
|00002410| 62 65 72 20 67 65 6e 65 | 72 61 74 6f 72 20 7d 0d |ber gene|rator }.|
|00002420| 0a 20 20 4e 75 6d 50 74 | 73 20 3d 20 32 30 30 30 |. NumPt|s = 2000|
|00002430| 3b 20 7b 20 54 68 65 20 | 6e 75 6d 62 65 72 20 6f |; { The |number o|
|00002440| 66 20 70 69 78 65 6c 73 | 20 70 6c 6f 74 74 65 64 |f pixels| plotted|
|00002450| 20 7d 0d 0a 20 20 45 73 | 63 20 20 20 20 3d 20 23 | }.. Es|c = #|
|00002460| 32 37 3b 0d 0a 76 61 72 | 0d 0a 20 20 49 20 3a 20 |27;..var|.. I : |
|00002470| 77 6f 72 64 3b 0d 0a 20 | 20 58 2c 20 59 2c 20 43 |word;.. | X, Y, C|
|00002480| 6f 6c 6f 72 20 3a 20 77 | 6f 72 64 3b 0d 0a 20 20 |olor : w|ord;.. |
|00002490| 58 4d 61 78 2c 20 59 4d | 61 78 20 20 3a 20 69 6e |XMax, YM|ax : in|
|000024a0| 74 65 67 65 72 3b 0d 0a | 20 20 56 69 65 77 49 6e |teger;..| ViewIn|
|000024b0| 66 6f 20 20 20 20 3a 20 | 56 69 65 77 50 6f 72 74 |fo : |ViewPort|
|000024c0| 54 79 70 65 3b 0d 0a 62 | 65 67 69 6e 0d 0a 20 20 |Type;..b|egin.. |
|000024d0| 4d 61 69 6e 57 69 6e 64 | 6f 77 28 27 50 75 74 50 |MainWind|ow('PutP|
|000024e0| 69 78 65 6c 20 2f 20 47 | 65 74 50 69 78 65 6c 20 |ixel / G|etPixel |
|000024f0| 64 65 6d 6f 6e 73 74 72 | 61 74 69 6f 6e 27 29 3b |demonstr|ation');|
|00002500| 0d 0a 20 20 53 74 61 74 | 75 73 4c 69 6e 65 28 27 |.. Stat|usLine('|
|00002510| 45 73 63 20 61 62 6f 72 | 74 73 20 6f 72 20 70 72 |Esc abor|ts or pr|
|00002520| 65 73 73 20 61 20 6b 65 | 79 2e 2e 2e 27 29 3b 0d |ess a ke|y...');.|
|00002530| 0a 0d 0a 20 20 47 65 74 | 56 69 65 77 53 65 74 74 |... Get|ViewSett|
|00002540| 69 6e 67 73 28 56 69 65 | 77 49 6e 66 6f 29 3b 0d |ings(Vie|wInfo);.|
|00002550| 0a 20 20 77 69 74 68 20 | 56 69 65 77 49 6e 66 6f |. with |ViewInfo|
|00002560| 20 64 6f 0d 0a 20 20 62 | 65 67 69 6e 0d 0a 20 20 | do.. b|egin.. |
|00002570| 20 20 58 4d 61 78 20 3a | 3d 20 28 78 32 2d 78 31 | XMax :|= (x2-x1|
|00002580| 2d 31 29 3b 0d 0a 20 20 | 20 20 59 4d 61 78 20 3a |-1);.. | YMax :|
|00002590| 3d 20 28 79 32 2d 79 31 | 2d 31 29 3b 0d 0a 20 20 |= (y2-y1|-1);.. |
|000025a0| 65 6e 64 3b 0d 0a 0d 0a | 20 20 77 68 69 6c 65 20 |end;....| while |
|000025b0| 6e 6f 74 20 4b 65 79 50 | 72 65 73 73 65 64 20 64 |not KeyP|ressed d|
|000025c0| 6f 0d 0a 20 20 62 65 67 | 69 6e 0d 0a 20 20 20 20 |o.. beg|in.. |
|000025d0| 7b 20 50 6c 6f 74 20 72 | 61 6e 64 6f 6d 20 70 69 |{ Plot r|andom pi|
|000025e0| 78 65 6c 73 20 7d 0d 0a | 20 20 20 20 52 61 6e 64 |xels }..| Rand|
|000025f0| 53 65 65 64 20 3a 3d 20 | 53 65 65 64 3b 0d 0a 20 |Seed := |Seed;.. |
|00002600| 20 20 20 49 20 3a 3d 20 | 30 3b 0d 0a 20 20 20 20 | I := |0;.. |
|00002610| 77 68 69 6c 65 20 28 6e | 6f 74 20 4b 65 79 50 72 |while (n|ot KeyPr|
|00002620| 65 73 73 65 64 29 20 61 | 6e 64 20 28 49 20 3c 20 |essed) a|nd (I < |
|00002630| 4e 75 6d 50 74 73 29 20 | 64 6f 0d 0a 20 20 20 20 |NumPts) |do.. |
|00002640| 62 65 67 69 6e 0d 0a 20 | 20 20 20 20 20 49 6e 63 |begin.. | Inc|
|00002650| 28 49 29 3b 0d 0a 09 09 | 50 75 74 50 69 78 65 6c |(I);....|PutPixel|
|00002660| 28 52 61 6e 64 6f 6d 28 | 58 4d 61 78 29 2b 31 2c |(Random(|XMax)+1,|
|00002670| 20 52 61 6e 64 6f 6d 28 | 59 4d 61 78 29 2b 31 2c | Random(|YMax)+1,|
|00002680| 20 52 61 6e 64 43 6f 6c | 6f 72 29 3b 0d 0a 20 20 | RandCol|or);.. |
|00002690| 20 20 65 6e 64 3b 0d 0a | 0d 0a 20 20 20 20 7b 20 | end;..|.. { |
|000026a0| 45 72 61 73 65 20 70 69 | 78 65 6c 73 20 7d 0d 0a |Erase pi|xels }..|
|000026b0| 20 20 20 20 52 61 6e 64 | 53 65 65 64 20 3a 3d 20 | Rand|Seed := |
|000026c0| 53 65 65 64 3b 0d 0a 20 | 20 20 20 49 20 3a 3d 20 |Seed;.. | I := |
|000026d0| 30 3b 0d 0a 20 20 20 20 | 77 68 69 6c 65 20 28 6e |0;.. |while (n|
|000026e0| 6f 74 20 4b 65 79 50 72 | 65 73 73 65 64 29 20 61 |ot KeyPr|essed) a|
|000026f0| 6e 64 20 28 49 20 3c 20 | 4e 75 6d 50 74 73 29 20 |nd (I < |NumPts) |
|00002700| 64 6f 0d 0a 20 20 20 20 | 62 65 67 69 6e 0d 0a 20 |do.. |begin.. |
|00002710| 20 20 20 20 20 49 6e 63 | 28 49 29 3b 0d 0a 20 20 | Inc|(I);.. |
|00002720| 20 20 20 20 58 20 3a 3d | 20 52 61 6e 64 6f 6d 28 | X :=| Random(|
|00002730| 58 4d 61 78 29 2b 31 3b | 0d 0a 20 20 20 20 20 20 |XMax)+1;|.. |
|00002740| 59 20 3a 3d 20 52 61 6e | 64 6f 6d 28 59 4d 61 78 |Y := Ran|dom(YMax|
|00002750| 29 2b 31 3b 0d 0a 20 20 | 20 20 20 20 43 6f 6c 6f |)+1;.. | Colo|
|00002760| 72 20 3a 3d 20 47 65 74 | 50 69 78 65 6c 28 58 2c |r := Get|Pixel(X,|
|00002770| 20 59 29 3b 0d 0a 09 09 | 69 66 20 43 6f 6c 6f 72 | Y);....|if Color|
|00002780| 20 3d 20 52 61 6e 64 43 | 6f 6c 6f 72 20 74 68 65 | = RandC|olor the|
|00002790| 6e 0d 0a 09 09 20 20 50 | 75 74 50 69 78 65 6c 28 |n.... P|utPixel(|
|000027a0| 58 2c 20 59 2c 20 30 29 | 3b 0d 0a 09 20 65 6e 64 |X, Y, 0)|;... end|
|000027b0| 3b 0d 0a 20 20 65 6e 64 | 3b 0d 0a 20 20 57 61 69 |;.. end|;.. Wai|
|000027c0| 74 54 6f 47 6f 3b 0d 0a | 65 6e 64 3b 20 7b 20 50 |tToGo;..|end; { P|
|000027d0| 75 74 50 69 78 65 6c 50 | 6c 61 79 20 7d 0d 0a 0d |utPixelP|lay }...|
|000027e0| 0a 70 72 6f 63 65 64 75 | 72 65 20 50 75 74 49 6d |.procedu|re PutIm|
|000027f0| 61 67 65 50 6c 61 79 3b | 0d 0a 7b 20 44 65 6d 6f |agePlay;|..{ Demo|
|00002800| 6e 73 74 72 61 74 65 20 | 74 68 65 20 47 65 74 49 |nstrate |the GetI|
|00002810| 6d 61 67 65 20 61 6e 64 | 20 50 75 74 49 6d 61 67 |mage and| PutImag|
|00002820| 65 20 63 6f 6d 6d 61 6e | 64 73 20 7d 0d 0a 0d 0a |e comman|ds }....|
|00002830| 63 6f 6e 73 74 0d 0a 20 | 20 72 20 20 3d 20 32 30 |const.. | r = 20|
|00002840| 3b 0d 0a 20 20 53 74 61 | 72 74 58 20 3d 20 31 30 |;.. Sta|rtX = 10|
|00002850| 30 3b 0d 0a 20 20 53 74 | 61 72 74 59 20 3d 20 35 |0;.. St|artY = 5|
|00002860| 30 3b 0d 0a 0d 0a 76 61 | 72 0d 0a 20 20 43 75 72 |0;....va|r.. Cur|
|00002870| 50 6f 72 74 20 3a 20 56 | 69 65 77 50 6f 72 74 54 |Port : V|iewPortT|
|00002880| 79 70 65 3b 0d 0a 0d 0a | 70 72 6f 63 65 64 75 72 |ype;....|procedur|
|00002890| 65 20 4d 6f 76 65 53 61 | 75 63 65 72 28 76 61 72 |e MoveSa|ucer(var|
|000028a0| 20 58 2c 20 59 20 3a 20 | 69 6e 74 65 67 65 72 3b | X, Y : |integer;|
|000028b0| 20 57 69 64 74 68 2c 20 | 48 65 69 67 68 74 20 3a | Width, |Height :|
|000028c0| 20 69 6e 74 65 67 65 72 | 29 3b 0d 0a 76 61 72 0d | integer|);..var.|
|000028d0| 0a 20 20 53 74 65 70 20 | 3a 20 69 6e 74 65 67 65 |. Step |: intege|
|000028e0| 72 3b 0d 0a 62 65 67 69 | 6e 0d 0a 20 20 53 74 65 |r;..begi|n.. Ste|
|000028f0| 70 20 3a 3d 20 52 61 6e | 64 6f 6d 28 32 2a 72 29 |p := Ran|dom(2*r)|
|00002900| 3b 0d 0a 20 20 69 66 20 | 4f 64 64 28 53 74 65 70 |;.. if |Odd(Step|
|00002910| 29 20 74 68 65 6e 0d 0a | 20 20 20 20 53 74 65 70 |) then..| Step|
|00002920| 20 3a 3d 20 2d 53 74 65 | 70 3b 0d 0a 20 20 58 20 | := -Ste|p;.. X |
|00002930| 3a 3d 20 58 20 2b 20 53 | 74 65 70 3b 0d 0a 20 20 |:= X + S|tep;.. |
|00002940| 53 74 65 70 20 3a 3d 20 | 52 61 6e 64 6f 6d 28 72 |Step := |Random(r|
|00002950| 29 3b 0d 0a 20 20 69 66 | 20 4f 64 64 28 53 74 65 |);.. if| Odd(Ste|
|00002960| 70 29 20 74 68 65 6e 0d | 0a 20 20 20 20 53 74 65 |p) then.|. Ste|
|00002970| 70 20 3a 3d 20 2d 53 74 | 65 70 3b 0d 0a 20 20 59 |p := -St|ep;.. Y|
|00002980| 20 3a 3d 20 59 20 2b 20 | 53 74 65 70 3b 0d 0a 0d | := Y + |Step;...|
|00002990| 0a 20 20 7b 20 4d 61 6b | 65 20 73 61 75 63 65 72 |. { Mak|e saucer|
|000029a0| 20 62 6f 75 6e 63 65 20 | 6f 66 66 20 76 69 65 77 | bounce |off view|
|000029b0| 70 6f 72 74 20 77 61 6c | 6c 73 20 7d 0d 0a 20 20 |port wal|ls }.. |
|000029c0| 77 69 74 68 20 43 75 72 | 50 6f 72 74 20 64 6f 0d |with Cur|Port do.|
|000029d0| 0a 20 20 62 65 67 69 6e | 0d 0a 20 20 20 20 69 66 |. begin|.. if|
|000029e0| 20 28 78 31 20 2b 20 58 | 20 2b 20 57 69 64 74 68 | (x1 + X| + Width|
|000029f0| 20 2d 20 31 20 3e 20 78 | 32 29 20 74 68 65 6e 0d | - 1 > x|2) then.|
|00002a00| 0a 20 20 20 20 20 20 58 | 20 3a 3d 20 78 32 2d 78 |. X| := x2-x|
|00002a10| 31 20 2d 20 57 69 64 74 | 68 20 2b 20 31 0d 0a 20 |1 - Widt|h + 1.. |
|00002a20| 20 20 20 65 6c 73 65 0d | 0a 20 20 20 20 20 20 69 | else.|. i|
|00002a30| 66 20 28 58 20 3c 20 30 | 29 20 74 68 65 6e 0d 0a |f (X < 0|) then..|
|00002a40| 20 20 20 20 20 20 20 20 | 58 20 3a 3d 20 30 3b 0d | |X := 0;.|
|00002a50| 0a 20 20 20 20 69 66 20 | 28 79 31 20 2b 20 59 20 |. if |(y1 + Y |
|00002a60| 2b 20 48 65 69 67 68 74 | 20 2d 20 31 20 3e 20 79 |+ Height| - 1 > y|
|00002a70| 32 29 20 74 68 65 6e 0d | 0a 20 20 20 20 20 20 59 |2) then.|. Y|
|00002a80| 20 3a 3d 20 79 32 2d 79 | 31 20 2d 20 48 65 69 67 | := y2-y|1 - Heig|
|00002a90| 68 74 20 2b 20 31 0d 0a | 20 20 20 20 65 6c 73 65 |ht + 1..| else|
|00002aa0| 0d 0a 20 20 20 20 20 20 | 69 66 20 28 59 20 3c 20 |.. |if (Y < |
|00002ab0| 30 29 20 74 68 65 6e 0d | 0a 20 20 20 20 20 20 20 |0) then.|. |
|00002ac0| 20 59 20 3a 3d 20 30 3b | 0d 0a 20 20 65 6e 64 3b | Y := 0;|.. end;|
|00002ad0| 0d 0a 65 6e 64 3b 20 7b | 20 4d 6f 76 65 53 61 75 |..end; {| MoveSau|
|00002ae0| 63 65 72 20 7d 0d 0a 0d | 0a 76 61 72 0d 0a 20 20 |cer }...|.var.. |
|00002af0| 50 61 75 73 65 74 69 6d | 65 20 3a 20 77 6f 72 64 |Pausetim|e : word|
|00002b00| 3b 0d 0a 20 20 53 61 75 | 63 65 72 20 20 20 20 3a |;.. Sau|cer :|
|00002b10| 20 70 6f 69 6e 74 65 72 | 3b 0d 0a 20 20 58 2c 20 | pointer|;.. X, |
|00002b20| 59 20 20 20 20 20 20 3a | 20 69 6e 74 65 67 65 72 |Y :| integer|
|00002b30| 3b 0d 0a 20 20 75 6c 78 | 2c 20 75 6c 79 20 20 3a |;.. ulx|, uly :|
|00002b40| 20 77 6f 72 64 3b 0d 0a | 20 20 6c 72 78 2c 20 6c | word;..| lrx, l|
|00002b50| 72 79 20 20 3a 20 77 6f | 72 64 3b 0d 0a 20 20 53 |ry : wo|rd;.. S|
|00002b60| 69 7a 65 20 20 20 20 20 | 20 3a 20 77 6f 72 64 3b |ize | : word;|
|00002b70| 0d 0a 20 20 49 20 20 20 | 20 20 20 20 20 20 3a 20 |.. I | : |
|00002b80| 77 6f 72 64 3b 0d 0a 62 | 65 67 69 6e 0d 0a 20 20 |word;..b|egin.. |
|00002b90| 43 6c 65 61 72 44 65 76 | 69 63 65 3b 0d 0a 20 20 |ClearDev|ice;.. |
|00002ba0| 46 75 6c 6c 50 6f 72 74 | 3b 0d 0a 0d 0a 20 20 7b |FullPort|;.... {|
|00002bb0| 20 50 61 69 6e 74 53 63 | 72 65 65 6e 20 7d 0d 0a | PaintSc|reen }..|
|00002bc0| 20 20 43 6c 65 61 72 44 | 65 76 69 63 65 3b 0d 0a | ClearD|evice;..|
|00002bd0| 20 20 4d 61 69 6e 57 69 | 6e 64 6f 77 28 27 47 65 | MainWi|ndow('Ge|
|00002be0| 74 49 6d 61 67 65 20 2f | 20 50 75 74 49 6d 61 67 |tImage /| PutImag|
|00002bf0| 65 20 44 65 6d 6f 6e 73 | 74 72 61 74 69 6f 6e 27 |e Demons|tration'|
|00002c00| 29 3b 0d 0a 20 20 53 74 | 61 74 75 73 4c 69 6e 65 |);.. St|atusLine|
|00002c10| 28 27 45 73 63 20 61 62 | 6f 72 74 73 20 6f 72 20 |('Esc ab|orts or |
|00002c20| 70 72 65 73 73 20 61 20 | 6b 65 79 2e 2e 2e 27 29 |press a |key...')|
|00002c30| 3b 0d 0a 20 20 47 65 74 | 56 69 65 77 53 65 74 74 |;.. Get|ViewSett|
|00002c40| 69 6e 67 73 28 43 75 72 | 50 6f 72 74 29 3b 0d 0a |ings(Cur|Port);..|
|00002c50| 0d 0a 20 20 7b 20 44 72 | 61 77 53 61 75 63 65 72 |.. { Dr|awSaucer|
|00002c60| 20 7d 0d 0a 20 20 45 6c | 6c 69 70 73 65 28 53 74 | }.. El|lipse(St|
|00002c70| 61 72 74 58 2c 20 53 74 | 61 72 74 59 2c 20 30 2c |artX, St|artY, 0,|
|00002c80| 20 33 36 30 2c 20 72 2c | 20 28 72 20 64 69 76 20 | 360, r,| (r div |
|00002c90| 33 29 2b 32 29 3b 0d 0a | 20 20 45 6c 6c 69 70 73 |3)+2);..| Ellips|
|00002ca0| 65 28 53 74 61 72 74 58 | 2c 20 53 74 61 72 74 59 |e(StartX|, StartY|
|00002cb0| 2d 34 2c 20 31 39 30 2c | 20 33 35 37 2c 20 72 2c |-4, 190,| 357, r,|
|00002cc0| 20 72 20 64 69 76 20 33 | 29 3b 0d 0a 20 20 4c 69 | r div 3|);.. Li|
|00002cd0| 6e 65 28 53 74 61 72 74 | 58 2b 37 2c 20 53 74 61 |ne(Start|X+7, Sta|
|00002ce0| 72 74 59 2d 36 2c 20 53 | 74 61 72 74 58 2b 31 30 |rtY-6, S|tartX+10|
|00002cf0| 2c 20 53 74 61 72 74 59 | 2d 31 32 29 3b 0d 0a 20 |, StartY|-12);.. |
|00002d00| 20 43 69 72 63 6c 65 28 | 53 74 61 72 74 58 2b 31 | Circle(|StartX+1|
|00002d10| 30 2c 20 53 74 61 72 74 | 59 2d 31 32 2c 20 32 29 |0, Start|Y-12, 2)|
|00002d20| 3b 0d 0a 20 20 4c 69 6e | 65 28 53 74 61 72 74 58 |;.. Lin|e(StartX|
|00002d30| 2d 37 2c 20 53 74 61 72 | 74 59 2d 36 2c 20 53 74 |-7, Star|tY-6, St|
|00002d40| 61 72 74 58 2d 31 30 2c | 20 53 74 61 72 74 59 2d |artX-10,| StartY-|
|00002d50| 31 32 29 3b 0d 0a 20 20 | 43 69 72 63 6c 65 28 53 |12);.. |Circle(S|
|00002d60| 74 61 72 74 58 2d 31 30 | 2c 20 53 74 61 72 74 59 |tartX-10|, StartY|
|00002d70| 2d 31 32 2c 20 32 29 3b | 0d 0a 20 20 53 65 74 46 |-12, 2);|.. SetF|
|00002d80| 69 6c 6c 53 74 79 6c 65 | 28 53 6f 6c 69 64 46 69 |illStyle|(SolidFi|
|00002d90| 6c 6c 2c 20 4d 61 78 43 | 6f 6c 6f 72 29 3b 0d 0a |ll, MaxC|olor);..|
|00002da0| 20 20 46 6c 6f 6f 64 46 | 69 6c 6c 28 53 74 61 72 | FloodF|ill(Star|
|00002db0| 74 58 2b 31 2c 20 53 74 | 61 72 74 59 2b 34 2c 20 |tX+1, St|artY+4, |
|00002dc0| 47 65 74 43 6f 6c 6f 72 | 29 3b 0d 0a 0d 0a 20 20 |GetColor|);.... |
|00002dd0| 7b 20 52 65 61 64 53 61 | 75 63 65 72 49 6d 61 67 |{ ReadSa|ucerImag|
|00002de0| 65 20 7d 0d 0a 20 20 75 | 6c 78 20 3a 3d 20 53 74 |e }.. u|lx := St|
|00002df0| 61 72 74 58 2d 28 72 2b | 31 29 3b 0d 0a 20 20 75 |artX-(r+|1);.. u|
|00002e00| 6c 79 20 3a 3d 20 53 74 | 61 72 74 59 2d 31 34 3b |ly := St|artY-14;|
|00002e10| 0d 0a 20 20 6c 72 78 20 | 3a 3d 20 53 74 61 72 74 |.. lrx |:= Start|
|00002e20| 58 2b 28 72 2b 31 29 3b | 0d 0a 20 20 6c 72 79 20 |X+(r+1);|.. lry |
|00002e30| 3a 3d 20 53 74 61 72 74 | 59 2b 28 72 20 64 69 76 |:= Start|Y+(r div|
|00002e40| 20 33 29 2b 33 3b 0d 0a | 0d 0a 20 20 53 69 7a 65 | 3)+3;..|.. Size|
|00002e50| 20 3a 3d 20 49 6d 61 67 | 65 53 69 7a 65 28 75 6c | := Imag|eSize(ul|
|00002e60| 78 2c 20 75 6c 79 2c 20 | 6c 72 78 2c 20 6c 72 79 |x, uly, |lrx, lry|
|00002e70| 29 3b 0d 0a 20 20 47 65 | 74 4d 65 6d 28 53 61 75 |);.. Ge|tMem(Sau|
|00002e80| 63 65 72 2c 20 53 69 7a | 65 29 3b 0d 0a 20 20 47 |cer, Siz|e);.. G|
|00002e90| 65 74 49 6d 61 67 65 28 | 75 6c 78 2c 20 75 6c 79 |etImage(|ulx, uly|
|00002ea0| 2c 20 6c 72 78 2c 20 6c | 72 79 2c 20 53 61 75 63 |, lrx, l|ry, Sauc|
|00002eb0| 65 72 5e 29 3b 0d 0a 7b | 20 20 50 75 74 49 6d 61 |er^);..{| PutIma|
|00002ec0| 67 65 28 75 6c 78 2c 20 | 75 6c 79 2c 20 53 61 75 |ge(ulx, |uly, Sau|
|00002ed0| 63 65 72 5e 2c 20 58 4f | 52 70 75 74 29 3b 20 20 |cer^, XO|Rput); |
|00002ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 7b 20 65 | | { e|
|00002ef0| 72 61 73 65 20 69 6d 61 | 67 65 20 7d 0d 0a 0d 0a |rase ima|ge }....|
|00002f00| 20 20 7b 20 50 6c 6f 74 | 20 73 6f 6d 65 20 22 73 | { Plot| some "s|
|00002f10| 74 61 72 73 22 20 7d 0d | 0a 20 20 66 6f 72 20 49 |tars" }.|. for I|
|00002f20| 20 3a 3d 20 31 20 74 6f | 20 31 30 30 30 20 64 6f | := 1 to| 1000 do|
|00002f30| 0d 0a 09 20 50 75 74 50 | 69 78 65 6c 28 52 61 6e |... PutP|ixel(Ran|
|00002f40| 64 6f 6d 28 4d 61 78 58 | 29 2c 20 52 61 6e 64 6f |dom(MaxX|), Rando|
|00002f50| 6d 28 4d 61 78 59 29 2c | 20 52 61 6e 64 43 6f 6c |m(MaxY),| RandCol|
|00002f60| 6f 72 29 3b 0d 0a 20 20 | 58 20 3a 3d 20 4d 61 78 |or);.. |X := Max|
|00002f70| 58 20 64 69 76 20 32 3b | 0d 0a 20 20 59 20 3a 3d |X div 2;|.. Y :=|
|00002f80| 20 4d 61 78 59 20 64 69 | 76 20 32 3b 0d 0a 20 20 | MaxY di|v 2;.. |
|00002f90| 50 61 75 73 65 54 69 6d | 65 20 3a 3d 20 37 30 3b |PauseTim|e := 70;|
|00002fa0| 0d 0a 0d 0a 20 20 7b 20 | 4d 6f 76 65 20 74 68 65 |.... { |Move the|
|00002fb0| 20 73 61 75 63 65 72 20 | 61 72 6f 75 6e 64 20 7d | saucer |around }|
|00002fc0| 0d 0a 20 20 72 65 70 65 | 61 74 0d 0a 7b 09 20 50 |.. repe|at..{. P|
|00002fd0| 75 74 49 6d 61 67 65 28 | 58 2c 20 59 2c 20 53 61 |utImage(|X, Y, Sa|
|00002fe0| 75 63 65 72 5e 2c 20 58 | 4f 52 70 75 74 29 3b 20 |ucer^, X|ORput); |
|00002ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003000| 7b 20 64 72 61 77 20 69 | 6d 61 67 65 20 7d 0d 0a |{ draw i|mage }..|
|00003010| 09 20 44 65 6c 61 79 28 | 50 61 75 73 65 54 69 6d |. Delay(|PauseTim|
|00003020| 65 29 3b 0d 0a 7b 09 20 | 50 75 74 49 6d 61 67 65 |e);..{. |PutImage|
|00003030| 28 58 2c 20 59 2c 20 53 | 61 75 63 65 72 5e 2c 20 |(X, Y, S|aucer^, |
|00003040| 58 4f 52 70 75 74 29 3b | 20 20 20 20 20 20 20 20 |XORput);| |
|00003050| 20 20 20 20 20 20 20 20 | 20 7b 20 65 72 61 73 65 | | { erase|
|00003060| 20 69 6d 61 67 65 20 7d | 0d 0a 09 20 4d 6f 76 65 | image }|... Move|
|00003070| 53 61 75 63 65 72 28 58 | 2c 20 59 2c 20 6c 72 78 |Saucer(X|, Y, lrx|
|00003080| 20 2d 20 75 6c 78 20 2b | 20 31 2c 20 6c 72 79 20 | - ulx +| 1, lry |
|00003090| 2d 20 75 6c 79 20 2b 20 | 31 29 3b 20 20 7b 20 77 |- uly + |1); { w|
|000030a0| 69 64 74 68 2f 68 65 69 | 67 68 74 20 7d 0d 0a 20 |idth/hei|ght }.. |
|000030b0| 20 75 6e 74 69 6c 20 4b | 65 79 50 72 65 73 73 65 | until K|eyPresse|
|000030c0| 64 3b 0d 0a 20 20 46 72 | 65 65 4d 65 6d 28 53 61 |d;.. Fr|eeMem(Sa|
|000030d0| 75 63 65 72 2c 20 73 69 | 7a 65 29 3b 0d 0a 20 20 |ucer, si|ze);.. |
|000030e0| 57 61 69 74 54 6f 47 6f | 3b 0d 0a 65 6e 64 3b 20 |WaitToGo|;..end; |
|000030f0| 7b 20 50 75 74 49 6d 61 | 67 65 50 6c 61 79 20 7d |{ PutIma|gePlay }|
|00003100| 0d 0a 0d 0a 70 72 6f 63 | 65 64 75 72 65 20 50 6f |....proc|edure Po|
|00003110| 6c 79 50 6c 61 79 3b 0d | 0a 7b 20 44 72 61 77 20 |lyPlay;.|.{ Draw |
|00003120| 72 61 6e 64 6f 6d 20 70 | 6f 6c 79 67 6f 6e 73 20 |random p|olygons |
|00003130| 77 69 74 68 20 72 61 6e | 64 6f 6d 20 66 69 6c 6c |with ran|dom fill|
|00003140| 20 73 74 79 6c 65 73 20 | 6f 6e 20 74 68 65 20 73 | styles |on the s|
|00003150| 63 72 65 65 6e 20 7d 0d | 0a 63 6f 6e 73 74 0d 0a |creen }.|.const..|
|00003160| 20 20 4d 61 78 50 74 73 | 20 3d 20 35 3b 0d 0a 74 | MaxPts| = 5;..t|
|00003170| 79 70 65 0d 0a 20 20 50 | 6f 6c 79 67 6f 6e 54 79 |ype.. P|olygonTy|
|00003180| 70 65 20 3d 20 61 72 72 | 61 79 5b 31 2e 2e 4d 61 |pe = arr|ay[1..Ma|
|00003190| 78 50 74 73 5d 20 6f 66 | 20 50 6f 69 6e 74 54 79 |xPts] of| PointTy|
|000031a0| 70 65 3b 0d 0a 76 61 72 | 0d 0a 20 20 50 6f 6c 79 |pe;..var|.. Poly|
|000031b0| 20 3a 20 50 6f 6c 79 67 | 6f 6e 54 79 70 65 3b 0d | : Polyg|onType;.|
|000031c0| 0a 20 20 49 2c 20 43 6f | 6c 6f 72 20 3a 20 77 6f |. I, Co|lor : wo|
|000031d0| 72 64 3b 0d 0a 62 65 67 | 69 6e 0d 0a 20 20 4d 61 |rd;..beg|in.. Ma|
|000031e0| 69 6e 57 69 6e 64 6f 77 | 28 27 46 69 6c 6c 50 6f |inWindow|('FillPo|
|000031f0| 6c 79 20 64 65 6d 6f 6e | 73 74 72 61 74 69 6f 6e |ly demon|stration|
|00003200| 27 29 3b 0d 0a 20 20 53 | 74 61 74 75 73 4c 69 6e |');.. S|tatusLin|
|00003210| 65 28 27 45 73 63 20 61 | 62 6f 72 74 73 20 6f 72 |e('Esc a|borts or|
|00003220| 20 70 72 65 73 73 20 61 | 20 6b 65 79 2e 2e 2e 27 | press a| key...'|
|00003230| 29 3b 0d 0a 20 20 72 65 | 70 65 61 74 0d 0a 20 20 |);.. re|peat.. |
|00003240| 20 20 43 6f 6c 6f 72 20 | 3a 3d 20 52 61 6e 64 43 | Color |:= RandC|
|00003250| 6f 6c 6f 72 3b 0d 0a 20 | 20 20 20 53 65 74 46 69 |olor;.. | SetFi|
|00003260| 6c 6c 53 74 79 6c 65 28 | 52 61 6e 64 6f 6d 28 31 |llStyle(|Random(1|
|00003270| 31 29 2b 31 2c 20 43 6f | 6c 6f 72 29 3b 0d 0a 20 |1)+1, Co|lor);.. |
|00003280| 20 20 20 53 65 74 43 6f | 6c 6f 72 28 43 6f 6c 6f | SetCo|lor(Colo|
|00003290| 72 29 3b 0d 0a 20 20 20 | 20 66 6f 72 20 49 20 3a |r);.. | for I :|
|000032a0| 3d 20 31 20 74 6f 20 4d | 61 78 50 74 73 20 64 6f |= 1 to M|axPts do|
|000032b0| 0d 0a 20 20 20 20 20 20 | 77 69 74 68 20 50 6f 6c |.. |with Pol|
|000032c0| 79 5b 49 5d 20 64 6f 0d | 0a 20 20 20 20 20 20 62 |y[I] do.|. b|
|000032d0| 65 67 69 6e 0d 0a 20 20 | 20 20 20 20 20 20 58 20 |egin.. | X |
|000032e0| 3a 3d 20 52 61 6e 64 6f | 6d 28 4d 61 78 58 29 3b |:= Rando|m(MaxX);|
|000032f0| 0d 0a 20 20 20 20 20 20 | 20 20 59 20 3a 3d 20 52 |.. | Y := R|
|00003300| 61 6e 64 6f 6d 28 4d 61 | 78 59 29 3b |andom(Ma|xY); |
+--------+-------------------------+-------------------------+--------+--------+
